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1 
П П 0000 
EchoSource ПТМҮППППППППППППП 
TraceScan 0000000000000000000000 
TraceParse ПППППППППППП 
TraceAnalyze ППППППППППППППП 
ТгасеСоае ППППППППППППППППП 
1.7.3 TM 
TINY TM TINY 
TM RISC RISC 
C 
a [index] = 6 
TM 1300 | 
LDC 1, 0 ( 0 ) load o into reg 1 
«ПППП 
«ПП index ПППППП 109 
LD 0, 10 ( 1 ) load val ағ (10+R1 into RO 
LDC 1, 2 (0) load 2 into reg 1 
MUL 0, 1, 0 put Rl * RO into RO 
LDC 1, 0 (0) load 0 into reg 1 
* 0000 
* ЦППаПППППП 200 
LDA 1, 20 ( 1 ) load 20 + R1 into RO 
ADD 0, 1, 0 put R1 + RO into RO 
LDC 1, 6 (0) load 6 into reg 1 
ST 1, O (0) store R1 at 0 + RO 
3 | П | П П LDC “ П ” 
LD “ | [] n F1 LDA “ | ” “ + ” 
“ 10(1)" 2 10 1 
0 1 10119 
MUL ADD “ ” 
1.3 “ ” 
TM 
TINY / 
TM ГО 
e ІБОППППППП“ПППЯІП”ПППППППТМПОППППППППППППППППППППП 
0000000000 







































































18 China-pubecom 
—ÀÓÀÁ— ii 


ANSI C tm.c |] ІП TMU 

















































































































































































































tm sample.tm 














































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































sample. ип ПМУД [] sample. тУУППППППППППППП 
TM sample. tny 
ПИПІ-ППППЦЧИПППЦЯПШП 4 Ц 
tm sample. tm 
TM simulation (enter h for help) 
Enter command: go 
Enter value for IN instruction: 7 
OUT instruction prints: 5040 
HALT: 0, 0, 0 
Halted 
Enter command: quit 
Simulation done. 
18 C-Minus] 0000000000 
A | TINY C 
C-Minus 
if[] while[] П 
main 
main [] © 
1-2 C-Minus 1-1 
П П ЇЇ [] read Ц Ц П СП 
scanf|! printf write 
000012 0000000000000 С-Міпиѕр р 


int fact( int х ) 
/* recursive factorial function */ 
( if (x > 1) 
return x * fact(x-1); 
else 
return 1; 
) 


void main( void ) 
( int x; 

x - read(); 

if (x » 0) write( fact(x) ); 
} 





C-Minus TINY П 100 ШПШШ TMU UD 
A ІП П TINY С-Мїпиз 














































































































































































































































































































e ПОП C-Mines 0000000 таПППППППП veia D000 void 000000 ANSI СПП 
ПППППППППППППП 











Chiha-pub«coM 


ПП 


1.1 


1.2 


1.3 


1.4 


1.5 


1.6 


1.7 


1.8 











































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































C 
а[1+1]=а[1] +2 
1.3 
2+3 
х=2 x 
a. 
b 
a. 
b 
C 
x = 4; 
y = x + 2; 
x = 4; 
y = 6; 
с. 
а 
X| 
const int x - 4; 
у = x + 2; 
/ b 
a. 
b 
с. 
С Равса | C С 
Pascal 
c T T 
“ ” = * 
T 





















































































































































































































































20 
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Ee 






































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































1.9 1.6 1-3 
Pascal P-system Pascal P-system 
P- Pascal E " P- 
P- Pascal P- P- 
a. Pascal P-system Pascal 
b (a) 
P- 
1.10 retargeting 
rehosting 
T 
umi 
" 2 Lex 5 Yacc 6 
8 P- 5 
Aho [1986] Fischer and 
LeBlanc [1991] Fraser and Hanson [1995] ]ub [1990] 
Gnu Internet C/C++ 
Stallman [1994] 
Louden [1993] 
Sethi [1996] 
Hopcroft and Ullman [1979] 
3 
Backus [1957][] Backus [1981] FORTRAN Randell and Russell 
[1964] А120160 Ваггоп[1981] Равса! 
[] Pascal P-system[] Nori [1981] 








Kernighan [1975] 








1.2 








Ratfor 














Bratman [1961] 











1.6 T 







































































Algol 














































































































































































































Haskell 



















































































































































































[1992] 
































Peyton Jones [1992] 














Peyton Jones [1987] 






























































Hindley-Milner| 





























1.1 
























































Peyton Jones [1987] 


Appel 























СМра“риђ«соћ 


020 0000 











































































































ШІП ШЕ 
• • DFA 
. e TINY 
° ° Lex 

























































































lexical analysis 









































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































keyword if[] while identifier| 
special symbol 
+f] * >-П <> 
regular expression finite automata[] 
TINY 
Lex TINY 
Unix 
2.1 0000 
token 
C © 
e ШПППППППППППППППППППППППППППППППППППП сроооооо 







































































#define IF 256 
#define THEN 257 
#define ELSE 258 


00000000 25610000000 АзЗСПОО0 000) 


22 


















































typedef enum 























































































































ЯТТЫ ДЫ 

























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































( IF, THEN, ELBEPLUS, MINUS, NUM, ID, ...) 
TokenType; 
reserved word[] ТЕ|| THEN 
" if" []" then" 2 special symbol PLUS 
MINUS +0“ -" 3 NUM[] ID 
IF 
“ if" 
string value lexeme 
ID 
attribute NUM 
" 32767" 5 
32767 PLUS “р 
+ 
NUM 
token record C 

















































































































typedef struct 
1 TokenType tokenval; 
char * stringval; 
int numval; 


} TokenRecord; 






























































typedef struct 
( TokenType tokenval; 
union 
( char * stringval; 
int numval; 
) attribute; 


} TokenRecord; 





































































































































































































































































































































































































































































































Chihaspub.coM 
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окепТүре getToken( void ); 


getToken 












































23 

































































































































































































































































[ index ] - 


getToken 

































































4 + 2 


















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































а" 
getToken 
22 ПО000 
r 
language generated by the regular expression LU r 
ASCII ASCII 
symbol 
alphabet УП sigma 
r 
a а 
r metacharacter 




































































metasymbol[] 







































































































































































escape character 










































































































































































































































































































































































































































































































































































































































































24 Chiha-bub.coM 
ouam 0 Аы T 




























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































43[] 2.5 
43 + 2.50 43 + 2.5 + 1.4 
1) а > 
a L(a)= {a} a 
empty string = (epsilon) 
£ £ Це) = {=} 
empty set 8) $ 1(ф)=() 
UU {=} {} {=} 
2) 3 @ | 
@ е) ж 
3 
3) г r|s r[]s 
r|s r 5 union L(r|s = L (r) 
UL (s) a|b all b L (а |b)= L (a) 
UL (b) = {a}U{b} = (a, b} ale a 
L(a|e)={a, =} 
L(a|b|c|d)={a,),c а) 
а |b |..| z а-2 
4) г 5 rs 
1 r 2 $ ab ab (а|Ь)с 
ас [] bc 
S US, 
55, 5, 8, S = (aa, b), 5, = (a, bb} 
5,5, = (aaa, aabb, ba, bbb} L (rs) = L (r) L (s) 
L((a|b)c)=L(alb)L(c)= {a,b} {с} = (ас bc) 
L(rr,..r)= L(r)L(r,)... L (r )= 
L(rj),.., L(r,) 
5) Kleene [] Kleene) closure[] r* r 
r* r| а* elja 
ааП aaa £ £ a 
S 
S*= {e} US U SS U SSS VL... 
5 S* 

































































































































































































































































5"=5...5 51 л 5" = (ЕЈП 































































































































































































Chinapubscom | 












































L (= L (т) * 


25 



















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(a | bb) *( 
eL] al] bb[] аа abb] bba[] bbbb[] ааа aabb L ((a | bb) *) 
=L (а |bb)* = (a, bb}* = (e, a, bb, aa, abb, bba, bbbb, ааа, aabb, abba, abbbb, bbaa, . . . | 
6) 
a | b* (a|b)* a |( b* ) 
І (а |b )*) = { є, a, b, aa, ab, Ба, bb,... } L (a |( b* )) = (e, а, b, bb, БЬЬ,... }) 
2 3 * 
| a|bc* а|(Ъ(с*) ab | с*а (аЬ) 
| Сек)4) 
(a|b)c 
a |bc а (| bc 
( a | bb )* a | bb* а] 5 bb[] bbb... 
3+4) * 5 =35 3+4*5=23 5 - 
7) 
(011121... 19) co|]1|2] ...| 9) * 
digit digit 
digit = 0|1|2|...|9 
digit regular definition 
regular expression 
1. basic a a y 
Е ф 1 L (a) = {a} 2 L (&) = 
{&} 3 1(ф)= {} 
2.r|s г Г (т | в) =L (ОЕ ($) 
3.rs ris L (rs) = L (r) L (s) 
4. r* r L (r*)= L (r)* 
5. (rl r L ((r) = L (r) 
21111 3 4 
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Ы 6 —— [|] = 
х|( ) 
2.2.3 
2.1 3 L={a b,c} 
b 
(alc) *Ъ (а|с) * 
b b 
b а [| с b[] арс abaca|] baaaac|] ссбаса 
ccccccb 
2.2 b 
b (а|с)* 
b 
(а|с)*|(а|с) *Ъ (а|с) * 
Ь аП c 
(alc) *(b]€) (а|с) * 
2.3 Y= (a b} S b a 
$ = { b, aba, аабаа, aaabaaa, ... } = (а Ба |n#0 ) 
* 
a*ba* S b 
a “ т” 
Pumping Pumping lemma 
regular set 
2.4 Y= (a b, с} 5 ІП 5 Ь 
alle b a с 






















































































































































































































































































Слаид 08 27 
oo ——— —— — — ———5———— 


(b(a|c))* 














































































































(а|с)*П 00 («ale * ПП b 





























((а]с)*| (b(alc)) *) * 





































































































(r*|s*)* (r|s)* 











((а|с) | (b(ale)))* 


(a|c|ba|bc) * 
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Ц (а | e| ba | be) *) 
b 
011 1[] 2 ЕП al] cl] аа] acl] са cc[] Ба П Бс 
i<n 5 п> 2 
5 S = 5$, s Ú 5, Е 
s П s, b 5 Ь 
Ь 8, 5 b 
b 
b[] ab[] cb 3 b 
b 
(а|с|Ъа|ъс) * (b|£) 
(5| £) (а|с|аь| cb) * 
(notb|b notb)* (Ь| є) 
notb = а|с 
notb b 
2.5 
(a, b, c) 
(|с) *a (b| с) ха) * (5 | с) * 
a 
(b|c) *a(b|c) ха 
a a a b сц 
a a 2 (Ь| с) * 























































































































(nota* а not& а) * nota* 
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ASCII [A-z] [A-Za-z] ASCII 
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signedNaturaF natural| + natural | - natural 
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natural= [0-9]+ 


signedNaturaF (+ | -) ? natural 
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r $ r 
5 L (rs) = 
L (r) L (s) rs 
3) r|s NFA 
£- 
L(r|s) = L()uL (s) 
4) r* r 
r 
£- r 
£- 
Thompson 
NFA rs r 5 
£- r 




















































































































































































































China-pubecom 





























47 



















































































































































































































































































































































































































































































































































































































































































Thompson 


































































































2.12 Thompson 








































































































ab|a 














NFA 
































































































































































































































П 2-6 0 0 Thompson 








2.13 Thompson 






















































































letter 
















































































digit 


( ) letter ( ) 














letter|digit 








































































































(letter|digit)* 





0000 


lett 

































































000000 аа [] ма 


er(letter|digit)* 












































NFA 





























( ! digit ( ) 


letter 











NFA 










































































48 


















































Chinaspub.com 

















letter[] (letter| digit) * 





















































































































































NFA 

















2-7 





























letter 


02-7 D D Thompson] 00 0 0000 0 1etter(ietter|digit)* [П NFA 




























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































2.111 2.3.2 (a | с) *b[] Thompson 
2.4.2 NFA[] DFA 
NFA DFA DFA 
Е- 
£- £- £- £-closure £- 
DFA 
NFA 
subset construction £- 
1) £- s Ц £- £- 
5 
Е- 
2.14 Thompson a* NFA 



























































































































































Chinaspubecom 

































































49 










































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































NFA 1 = {1,2,4}, 2= {2}, 3 = {2,3,4}, 4 = {4} 
£- £- 5 
$ = U 5 
зіп S 
2.14[] NFA {1,3} =103= {1,2,4} U {2,3,4} = {1,2,3,4} 
2) NFA—— DFA M 
M £- M 
a S a S,- (t| 
S 8 5 [1 } S, 5% 
5— 57 
М DFA[] M 
=- =- а 
а м 
2.15 2.140 [] NFA DFA T = {1,2,4} 
2 3 a 1 4 a 
{1,2,4}0 {1,2,4}, = {3} = {2,3,4} 1 4 
{2,3,4} a 2 3 
30 4 а- (2,341: {2,3,4}, = {3} = {2,3,4} 
{2,3,4} а- DFA 
NFA 4 {1,2,4}0 {2,3,4} 4 
DFA DFA 
Ж; 
” €J 
2.16 2-6[] ] NFA 




































































50 СУлаграхсом 
— Fu 






































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































DFA (112 {1,2,6} а 2 3 
6 7 {1,2,6} „= {3,7} = {3,4,7,8} {1,2,6} — {3,4,7,8} 
11216 (3.4,7,8) b 
4 5 {3,4,7,8} ,= {5} = {5,8} {3,4,7,8} — (5,8) 
DFA NFA 
On : 
2.17 2-7 NFA letter (letter|digit) *[] Thompson 
£ 
letter 
(1) 5 (1) letter (2) -12,3,4,5,1,10) 
letter| {6} = (4,5,6,7,9,10) digit {8} 
= {4,5,7,8,9,10} letter|| digit 
DFA 






















































































































( р ) ASO СТУБ 


letter 


4,5, 
letter ас as «ХЮ 7,9, 10} 


Силае) 5, 7, 8, 9, Силае) digit 





2.4.3 П МҒА 















































letter 





NFA 




































































МЕА DFA 





























































































































































































































































































































Chinaspubecom 












































DFA 
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(3.4,7,8] 








































































































































































































{5,8} 


















































2.17 






























































г242 






















































































(1)-5-(2, 3, 4, 5, 7, 10}—®—{4, 5, 7, 8, 9, 10} 


—®—{4, 5, 6, 7, 9, 10) (4, 5, 7, 8, 9, 101 




























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































DFA 
{4,5,7,8,9,10} DFA 
NFA 
2.4.4 DFA 
DFA DFA 
2.15 DFA 
E 
0--0 
ах ПҒА 
а 
DFA 
DFA 
DFA DFA 
DFA DFA 
DFA 
DFA a a 
а- 
а 
a- 5 t a 
а- distinguish| 
$ 1 а- 
DFA 






































































































































































































































































































































52 СУдагрдр ом 
24 moon ти 










































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































DFA 
5 t 5 а- Ї а- 
а 5 t 5 
а- t а- а 5 t 
2.18 DFA letter(letter|digit)* 
4 1 3 3 letter[] digit 
3 3 
DFA 2.3 
(_) setter 
(5) letter (о) 
— 
С Jama 
2.19 DFA 2.1[] 2.3.2 (a|£)b* 
| 
b 
b- b 1 
a- 2 3 a- a 
a 1 213 
(110 12,3) {1} 
2 3 аП b DFA 
a 
(X. 29.7 
2.5 ТІМҮППППППП 
TINY 











































































































































































































































































































































































































Слаграхс0м 53 
Ши! || 020110 29 





















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































2 
2.5.1 TINY 
1 TINY ТЇМҮ 
TINY 54 
TINY 3 sna К 
10 4 
2 
П 2-1 TINY] UD DU 

ооо ПППП “Яаг 

if + ї 

шин : 0100000000 
else 

end / 

гереа! _ 

until 2 ОПП 

5 | annnnnnnn 
write ) 

TINY i 
NFA 
DFA TINY | 
DFA 
DFA 
DFA 

























































































return PLUS 


return MINUS 


return SEMI 

































































54 Chiha-pub.coN 
--2105---------1: 












































































































































































































































































































































DONE DFA DFA DFA 












































































































































































































letter 





























































































































































































































































































































2-8 DFA 






































































































































0 2-8 TINYOOOOO DFA 











2-8 DFA DFA 























































































































































































































































































































































































































DFA scan.h зсап.с|| || 












































СМрачи«сом , 55 






















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































B getToken 674 793 2-8 
DFA 2.3.3 
globals.h 174 186 2-1 
EOF ERROR 
612 614 
TINY 
tokenString getToken 
scan.h 550 571 
tokenString 41 40 
3 source|| listing globals.h 
main.c lineno 
getToken reservedWords 649 656 
reservedLookup 658 666 getToken 
currentToken save 
tokenString 
getNextChar 627 642 
256- lineBuf 
lineno getNextChar 
C fgets[] source 
255 TINY 
getNextChar 
TINY INNUM | INID 
2-8 ungetNextChar 644 647 
TINY 2-3] TINY sample.tny 
1 2-4 TraceScan 
EchoSource 
ПППП 2-3 ТМҮПППППППП 








1 Sample program 
in TINY language - 
computes factorial 

} 

read x; { input an integer } 

if 0 < x then { don’t compute if x <= 0 } 
fact := 1; у 
repeat 

fact := fact * x; 











56 





Chinapubscom 















































х := x - 1 
until x = 0; 
write fact ( output factorial of x ) 


end 





0000 2-4 ППППП2-3ППТМҮППППППППППППППП 





TINY COMPILATION: sample. tny 











dz TINY language - 

_ computes factorial 

Эн ы Ыы | 

read x; ( input an integer ) 
5: reserved word: read 

5: ID, names x | 

5: 2; 


: if 0 «x. then ( don't compute if x <= 0} 


6: reserved word: if 


бе NUM, vale 0 


6: < 


6: ID, names x 
61 “reserved word: then 
s fact := 1). 


7: ID, name= fact 
=. 


тим, уа1= 1 


peak 
8: "reserved wordi repeat 
| Васе ;= fact * x; 
9: ID, name= fact 


(29:10:84 


9: ID, names fact 
ӨЕ 


91 ID, names x 


11: 


12: 


13: 


ү. 
10: 
2210: ID, names x 


OX ym хо- 1 


10: := 


10: ID, name= х 





"vale 1 






11: reserved word: until 


`11: ID, names x 


11: = 
11: "m, vals 0 
11: 
write fact ( output factorial of x ) 


12: reserved word: write 
12: ID, name- fact 

ená | 

13: reserved word: end 
14: EOF 








POL 


















































TINY 





























































































































































































































(Млдграфхсом 
































57 















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































2 
TINY 8 
30-60 
minimal perfect hash functi 
8 
0-7 “ ” 
TINY 
2.5.3 
TINY 40 
40 
copyString copyString 
4 TINY 
TokenString realloc 
С 
7 
26 ПП Lex[] L1] D] D] D. D. D DI 
TINY Lex 
TINY Lex 
Lex fle 
Fast Lex Free Software Foundation Gnu compiler package 
Internet 
Lex 
Lex yylex[|C 
уу!ех DFA getToken 
lex.yy.c[] 1ехуу.с|| Lex 
scan.c tiny.c 
Lex Lex 


































































































































































































































































































































































































Chinaspuf.cow 





























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































B TINY Lex| 
2.6.1 Lex 
Lex 2.2.3 Lex 
Lex 
Lex Lex 
if|| "if" if iff 
" (" 

\ (* 

N (үх " (*" 

\п Nt C 

Lex 

Lex *[] +0 (0)0 |0 Lex 

Lex| a b aa 

bb c 
(aa|bb) (a|b) хє? 
("аа" | "ьь") ("а" | "ь"уж!с"э 
Їех [abxz] аП b 2 

Гех 

(аа | БЬ) [ab] *c? 
10-91 Lex 
0-9 
1 [^0-9abc] aj] b Пс 
E 2.2.4 
("+" | "-") ? 10-91 + (" : " [0-9] +) ? (Е ("+" | "-") ? 10-91 +) ? 
Lex 
("+" wi) [-+] [+- 
“ 2. n [ р "21 
3 
[\^\\1 \ 

Lex 























































































































































































































































































































































































































Chinas 


ифом 












































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































2.2.4 signedNat 
nat = [0-9] + 
signedNat= ("+"|"-"[] ? nat 
Lex 
Lex 
Lex Lex 
nat [0-9] + 
signedNat (+|-)2 (nat) 
2-2 Lex Lex 
[] 2-2 їех ГППППЇП 
П П П П 
а ППа 
"а" ППаППППППППППППа 
ха ОПарооооо00000 а 
а* аПППППППП 
а+ аАПППППППП 
а? ПППППа 
a|b a[] b 
(a) аПП 
[abc] ППаПРП<ППППП 
[a-d] ППаП 20 end 4 0 ü ü ü 
[^ab] 00050000000 
. 0000000000000 
{ххх} ПО хх 00000000 
2.6.2 Lex 
Lex 3 definition rule 
auxiliary routine user routine 3[] | | 1 
Lex 
(definitions) 
$5 
{rules} 
$5 
{auxiliary routines} 
Lex 
Lex] ООО C Ц | Гех 
С [] Lex [] | | | 3[] [] 
Lex 
1 ІШ 1000 U 








































































































































































































































































































China-pub«co 































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































“ 41” “ %)” C 2 
1 
2 ПС 
С 
3 С 2 
Гех 2 
1 
Гех 
2.20 Lex 
%{ 
/* a Lex program that adds line numbers 
to lines of text, printing the new text 
to the standard output 
ж/ 
#include <stdio.h> 
int lineno = 1; 
%} 
line *.\n 
%% 
(line) ( printf ( "554 55", lineno++, yytext ); ) 
%% 
main() 
{ yylex(); return 0; } 
Lex 
1 s( 
2 /* a Lex program that adds line numbers 
3 to lines of text, printing the new text 
4 to the standard output 
5 */ 
6 #include <stdio.h> 
7 int lineno = 1; 
8 %) 
9 1іпе .*\п 
10 %% 
11 ( line ) ( printf ( "554 55", lineno++,yytext); | 
12 %% 
13 main ( ) 
14 ( yylex( ) ; return 0; |) 
Гех 1 8 
5411 5) Lex С 
2 5 
#include 6 7 lineno lineno 
100 1] %% 11пе 11пе 





























































































































































































































ШТ Х5 
































61 


































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































2 
" с хүр" 
11пе 10 %% 11 
Lex line 
Lex line action 
C C 
С line С 
С 5 
11пепо yytext|[| yytext Lex 
9 Lex C 
2 13 14 C yylex 
main yylex Lex Lex 
DFA 
2.21 Lex 
% 
/* а Lex program that changes all numbers 
from decimal to hexadecimal notation, 
printing a summary statistic to stderr 
ж/ 
#include <stdlib.h> 
#include <stdio.h> 
int count = 0; 
%} 
digit 10-91 
number {digit}+ 
55 
(number) ( int n - atoi (yytext); 
printf ("$x", n); 
if (п > 9) count++;) 
SS 
main( ) 
{ yylex ( ); 
fprintf ( stderr, "number of replacements = 54", 
count); 
return 0; 
) 
main yylex stderr 
C 1 yytext n 
(printf("%x",...)) 9 count 
9 Lex 
Lex default 
action| 
e ППППППППППППППППППП їе ППГ 











































































































62 Chinaspub.coM 
— nu | 







































































































































































































































































































































































































































































Lex Lex 
Lex ECHO 
2.22 Lex 
54 


/* Selects only lines that end or 
begin with the letter 'a'. 
Deletes everything else. 

ж/ 

#include <stdio.h> 

%} 

ends_with_a .*а\п 

begins_with_a а.*\п 

%% 

(ends, with, a) ECHO; 

(begins, with, a) ECHO; 






















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































.*Mn o; 
$5 
main( ) 
1 yylex( ); return 0; ) 
Lex a 
ECHO С 
.*\п = 
Lex ambiguous 
a 
.*Mn Lex Lex 
Lex 
П Lex 11111111 Ц 1 П 0 | Їех 
[] [] ЕСНО | 1 | 
.*\п; 
(ends, with a) ECHO; 
(begins, with, a) ECHO; 
Lex 1 
2.23 Lex С- 
/*...*/ 


















































































































































%{ 

/* Lex program to convert uppercase Ко 
lowercase except inside comments 

*/ 

#include <stdio.h> 

#ifndef FALSE 

#define FALSE 0 

#endif 

#ifndef TRUE 


China=pub.com 


























63 







































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































2 
#define TRUE 1 
#епаіғ 
%} 
%% 
[А-2] (putchar(tolower(yytext[0])); 
/* yytext[0] is the single 
uppercase char found */ 
) 
п/ж" 1 char с; 
int done = FALSE; 
ECHO; 
do 
{ while ((c=input())!='*') 
putchar(c); 
putchar(c); 
while ((c=input ())=='*'{] 
putchar (c); 
putchar(c); 
if (c == '/') done = TRUE; 
) while (!done); 
) 
%% 
void main(void ) 
{ уујех();) 
Гех 
DFA 2.2.4 C 
C "ух" "*/" 
2.9 DFA 2-A[T т/ж" 3 
DFA 3 
other| | | 
while ((c=input())!='*') putchar(c); 
Lex input getchar 
—— Lex 
putchar[| 2.6.4 
DFA 4 
30 0 
Lex 
(1) 
Lex 
Lex 1 
(2) C 
1) 5115) 
2) Lex 3) 
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10 85 

уу1ех С 

С С 

(3) 

2-3 Lex 
0 2-8 ПП LexD O00 
Lex [] O00 00/00 

lex.yy.c[] lexyy.c Lex [] BH E] B Ú 

yylex Lex [] 000 

yytext 00000000 

ууїп Lex ПППППППП stdin) 

yyout Lex 00000000 stdaout|[] 

input Lex [] 000000 

ECHO Тех 0 00000 ууеехе[ [] [] ууеөч 

Lex yyin 
yyout|| Lex Lex input 
yyin yyout 

printf|| putchar 

fprintf(yyout,...)|| putc(...,yyout) 
2.6.3 ПП Lex [] TINYOOO 

B Lex tiny.1 tiny.1 TINY 2.5 
TINY 2-1 3000 3072 
Lex С 3[] #include (globals.h 
util.h[| scan.h tokenString TINY 
TINY 
number digit identifier 
letter lineno 
3019 3020 

Lex return return 

globals.h Lex 
Lex 
Lex 
Lex “ " TINY 
lineno 





































































































































































































China=pubecom ‚ 65 
ШШ m ——_ 























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































оу 
| 1-1 ІП E 
EOF Lex yylex 
EOF —— 0 | globals.h TokenType 
179 ENDFILE 0 
tiny.1 getToken 3056 3072 
Lex yyin[| yyout 
Lex TINY 
C lex.yy.c lexyy.c 
TINY Lex 
2.35[] 
00 
2.1 
a.[]a 
Ь. 0а / 
с. [] 1 0 
д. 
е. 2 9 
f. a b 3 b 
g. а! b a b 
h. a b a b 
i.a[] b a b 
2.2 
а. (a|b) ха (а | 2 | 0 
b. (СА|В|....12) (а 5]... |2)% 
С. (aa |b) * (а | Бр) * 
d. (0|1]... | АЈ в| сјрјЕ|Е) + (x| x) 
2.3 а. grep[] global regular expression print Unix 
P grep 
b. 
2.4 
а|ь|с (a|b) |с а| (b|c) 
2.5 r L (r**) = L (r*) 
2.6 | 1000000 ФП! е 
© rexğ 00000000000000 yyinenor 000000000000000 пеп 00000600 
© | | | Unix[] 0000030000 егер" regular" егер] egrep (extended grep)[] fgrep (fast гер) 






































2.17 


2.18 


2.19 
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ф DFA 
2.1[] a[] i DFA DFA 
C 4 case[] спа | const[] continue[| DFA 
| | C [] 
DFA 2.3.3 
DFA 
NFA 
a. Thompson (a|b) ха (а | 5 | є) МЕА 
b. a NFA DFA 
a. Thompson (aa|b) *a (a|bb) * NFA 
b. a NFA DFA 
2.10[] 2.3.2 NFA DFA 
2.4.1 Thompson 
NFA £- 
NFA 
r*s* NFA 
DFA 2.4.4 
a. 
a 
— e 
b 
c 
b. 
Pascal [x] TINY 
(Ме Ж) DFA 
a. [] Lex C 2.2.3 
b. a 
С Lex Schreiner[] Friedman 















































































































































(1985.р.2511 
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2 
PRAT LOR PAA dg | LAIR оа un 
| /**_/*/[] 
0000 
2.20 С 
2.21 С Kernighan 
Ritchie [1988,p.192] C 
222 Lex C 
223 Lex C 
224 Lex 
/ 
2.25 inComment 
2.231| 2.6.2 Lex 
2.26 2.23 Lex C 
2.7 a TINY 
TINY 
2.28 tokenString TINY 
40 
2.29 a TINY 
b. TINY a 
getNextChar|| ungetNextChar 
2.30 TINY ungetNextChar 
TINY 
2.31 nestLevel TINY 
2.32 TINY Ada Ada 
2.33 TINY[] Lex TINY 
2.27 | 
2.34 TINY lex Ada Ada 
2.35 TINY Lex EchoSource 
Lex 
U uuu 











Hopcroft 














Ullman [1979] 


























































































































































































































































































































68 (Улаграйхсом 
— Yu! 










































































































































































































































































































































































































































































































































































рипрше | 
DFA Uu Aho[] Hopcroft [] Ullman[1986] 
DFA П П П 
Sedgewick [1990] 
NFA Thompson E П 0 
6 Cichelli [1980] Sager [1985] 
2:5:2 gperf Gnu 


















































































































































































































































Schmidt [1990] gper 
Lesk [1975] Lex 





















































































































































































































































































































































































































































































































































































































































Flex ( Paxson [1990] 
Jacobson[1987] Schreiner[] Friedman[1985] [] Lex 
Lex Kernighan and Pike 
[1984] grep 2.3 Aho 
[1979] Landin [1966][] Hutton [1992] 2.2.3 
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030 00000010000 
















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































0000 
• • ЕВМЕ 
• * TINY 
syntax analysis[] context-free grammar 
grammar rule 
recursive if 
1 
parse tree syntax tree[] 
2 
top-down parsing 
bottom-up parsin 
TINY 
31 0000 
ПППГ _ 
0000 — 1 0 
getToken 
syntaxTree - parse(); 
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error repair 


recover 
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3.2.1 




































































2 


























op *|-|* 














number 






















































































number= digit digit 


digit= 0|1|2|3|4|5|6|7|8)|9 


expo exp op exp | (exp) | number 
































































































































































































































































































































































































































































































































































































































































































































exp 














ПППП 





00000000 




















ППП 






































СМрачриреоћ 































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































ехр 
ехр ор 6 
5 3411-1151 ( ) number|| 
Algol60 
John Backus[] Аїео160 Peter Naur 
Backus-Naur Backus-Naur form ВМЕ 
3.2.2 
C C 
while t - 2 
TINY 
(if, then, else, end, repeat, until, read, write, 
identifier, number, +, -, *, /, =, <, (, ), i, := } 
TINY 
(IF, THEN, ELSE, END, REPEAT, UNTIL, READ, WRITE, ID, NUM, 
PLUS, MINUS, TIMES, OVER, EQ, LT, LPAREN, RPAREN, SEMI, ASSIGN } 
BNF context-free grammar rule in BNF 
1 2 = 
BNF 
exp — exp op exp | (exp) | number 
op +|-|* 
1 ехр 
2 ор 
+|- х 
-» = = 
< ¿2 
<exp> ::= <exp> <op> <exp> | ( <exp> ) | NUMBER 
<op> ::= + | - | * 

































































































































































































































































72 China-pub.cow 
enna nn | 













































































































































































































































































































































































exp = ехр ("+" | wom "ж") ехр | " ("exp") " | n } ег 












































































































































































































































































































































































































































ехр = ехр тал! wom | "k" exp | " ("exp") " | number 



























































































































































































































































































































































































































































































































































exp — exp op exp 
exp > (exp) 
exp > number 
op + 

op = - 


ор > * 























































































































































































































































































































































































































































































































































































































E> EOE(] CE)|a 








3.2.3 | О П 










































































































































































































































































































































































(34-3) *42 




































































( number- number) * number 











































































































number| 


























































































































Chiba-bub eo 





































































































73 
























































exp 2 exp op exp | (exp) | number 





























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































орә +|-|* 
(34-3*42 
ехр 
2 
derivation 
3-1 (34-3) х42 
| 
(1) exp = exp op exp [exp — exp op exp] 
(2) — exp op number [exp — number] 
(3) = exp * number [op — * ] 
(4) = (exp) * number [exp — ( exp )] 
(5) => ( exp op exp ) * number [exp — exp op exp] 
(6) = (exp op number) * number [exp — number] 
(7) = (exp - number) * number [op -| 
(8) = (number - number) *number [exp —^ number] 
3-1 ППППП (34-3) *42 000 
define construct 
3-1 1 ехр ор ехр expo exp op exp BNF| exp 1 
ехр 2 ехр орехр ехр number ехр- number|] 
exp ор number 3 * opo * op BNF 
op 3 exp * number 
exp language 
defined by the grammar 
Г (С) = {s | exp => *s } 
С 5 sentence 
= 
“ ” L (G 
production 
op (+, -, %) 3 
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Разса] BNF 















































(Муаграфхсом 


program  program-heading ; program-block. 


program-heading > ... 


program-block > ... 


































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































1 
C 
1 
start symbol 
nonterminal 
terminal[] 
3.1 G 
Е (Е) a 
1 ЕП 3 0) а L(G) = (a, (a), ((а)), 
(((a))),...} = (Са) | n =0 } а 
((a)) 
E — (E) => ((Е)) => ((а)) 
3.2 
E— (P) 
G Ева 
L(G) = { 1 Е Е 
base case 
3.3 
Е-Е-аПа 
С “+” а 
L(G)={ а,а+а,а+а+а,а+а+а+а,... } 
Еэ Е+а +а 
Е-Е-а-Е-ғ-а-а- Е+а+а+а =»... 
Ea E 
a а+а+... 
+а 1.(С) Esa a ] L(G) 5=а+а+... +а L(G) п- 1 
а Е =>; Е Е+а=> *5+а s+a[] L(G) пПа 
L(G) 5 а+а+..+а 














































































































СМдагрорм0м 75 
oh e 
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Хо 
Ц ЕВМЕр [| ШИШ 0000 
П 3.10 000 ВМЕП р | 
exp — exp addop term | term 
addop > +|- 
term > term mulop factor | factor 
mulop > * 
factor > ( exp ) | number 
EBNF 

exp > trem { addop term | 
addop > + |- 
term factor ( mulop factor | 
mulop > ж 
factor = (exp ) | number 

3-40 | factor| | | 
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term 










Jactor 


0 3-4 0 3100 000000 
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3.11 3.4 1 BNF 




























































































statement — if-stmt | other 
if-stmt > if (exp) statement 


| if (exp) statement else statement 

















exp > 011 
EBNF 
statement — if-stmt | other 
if-stmt > if (exp) statement | else statement | 
exp > 0|1 
3-5 | 






























































if-stmt 







statement 










exp 


0 3-5 03.10 000000 


36 ПППООООООООО0 
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3) production grammar rule[] А о P A 
а TO * 
4 start symbol 
G G = (T, N, Р, SU] G derivation step [] 
aAy = офу a [] Y D (T U N)* A2 ВО Р 
G set of symbol (Ты Му [vi sentential form 
a= *В — 
«= *B[] nz 0 
a> => ... =>0 =a 
a-a[] B=% n=0 о-ВП с derivation $ = *w w 
ет“ w sentence[[[] 50 G 
G language generated by G L(G) L(G)=[ we T*| 
G S = *w) L(G) S 
leftmost derivation] 5 = "и оду = apy 
ae T* а rightmost derivation 
aAy => apy үє Т* 
С parse tree 
1) Е 
2 5 
3) Е 
4) 
5) Ав п X,X,...X, 
А>Х,,Х,,...ХЕР 
ФАУ = apy | 
В=Х,,Х,,...Х, Xo Х,,...Х Пп Х,,Х,,...Х, 
А 
GU L=L(G) L context-free 
language 
w e L (G) w G 
ambiguous 
3.6.2 ІП 
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exp 
E N 
number 
E=(E+E)UN 
E+E {utvlu,ve Е } и у Ш 
Е Е ЕП МП E+E 
Е М Е Е-Е N+N 
N[] N+N Е N+N+N E 
E=NVU(N+N)U(N+N+N)U(N+N4+N4N)U... 
E E Е 
Е f(s) = (s +s) UN Е E =f (E) 
E f fixed point 
E least-fixed point semanti 
3.6.3 
BNF[] EBNF 
BNF 
else 
BNF 
BNF 



























































































































































































































































































































































































































































digit = 0|1|2|3|4|5|6|7|8)|9 
number = digit digit 
























































digit» 0|1|2|3|4|5|6|7|8|9 


number > number digit | digit 

















96 Chinaspubscom 
Some! KOT T] 





































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































2 
regular grammar 
BNF 
context rule 
А о 
А о 
context 80 Y BU 7 
ВАү- pay 
QU E context-sensitive grammar rule 
declaration before use C 
( int x; 
X. 
) 
BNF 
static semantics 
BNF 
unrestricted grammar аә В of] В 
о £ 4 == 
0 1 2 3 

Chomsky hierarchy 























































































































































































































(уаграхс0М | 97 
Шш о -- 
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inherently ambiguous language [I 
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3.7.1 TINY 
3-1[] ТІҸҮП BNF TINY 
5 if repeat read write assignment 
1 end TINY else Ц гереа! 

Равса! 

begin-end begin TINY / 

read[| write read write 

ПППП 3-1 ВМҒП П TINY[] О [] 























program тэ Simt-sequence 
stmt-sequence: нэ» stmit-sequence л 
statement — тї i repeat-stm 







statement: 1 statement. 


repeat- -stmt — > repeat stmt-sequence until ep 
assign-stmt => identifier := ехр 0107 
read-stnt => read identifier ` 

write-stmt — write exp 

exp simple-exp comparison-op simple-exp p | simple-exp 
comparison-op => < | = 

simple-exp — siniple-exp addop term | term 
addop — + | = 

term — term mulop factor | factor 

mulop — * | / 

factor — ( exp ) | number | identifier 











TINY if repeat = < 


+1 =] * / div 



























































































































































































































































simple-exp 
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TINY TINY 
TINY | 
TINY Pascal[] C 
stmt-sequence[] BNF 
stmt-sequence 
TINY 
3.7.2 TINY 
TINY 5 1 гереа! assign 
read write 3 
3 else i 
assign read 
3-2 C B 
198 217 globals.h 
1 
lineno 2 type 
ExpType 6 
00003-2 QOTINYOOOOdO ОПП 



































ШТ 5 
















































































Char * name; ) аб о 
|. ExpType type; /* for type checking of 






exps */ 
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` 
` 
` 
` 
` 
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ГАХ 


test then-part else-part 
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repeat 












































































































































































































































assign 





assign 
(<name>) 





expression 



































































































































write 
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China=pubscom 
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expression 


































































































































































































op 
(<opkind>) 


left operand right operand 





read 



























































































































































- 


| 3-3 

























































































































































































const assign 
(0) (fact) 


0 3-6 ПППП 3-30 riNYD 00000 


ПППП 3-3 ТМҮПП П ЇГ 








repeat 


x sm. x = 1 


fact := fact * x; 






















































































China-pubeeom 101 
0 ——— 






until x = 0; : 
write fact { output fa 



































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































ПП 
31 а. 
{s;, 8;8;, 8;8;8;, } 
b. 5;5; 
32 А 2 АА | (A)e 
а. 
b. 
3.3 
exp — exp addop term | term 
addop > +|- 
term > term mulop factor | factor 
mulop > * 
factor > ( exp ) | number 
П О 
а. 3+4*5-6 b. 3*(4-5+6) c. 3-(4%5%6) 
3.4 
rexp > rexp "|" rexp 
| rexp rexp 
| rexp "*" 
|" C техр")" 
| letter 
a. (ab|b) * 
b. 0001 
c. [] Hl D] U [] [] [] 20 | 
Ч. (с) 
3.5 П true[] false апа[ or[] not | П 
ог|| апа and not not 
not not trug 
3.6 LISP 









































































































































lexp — atom | list 
atom > number | identifier 
list ^ (lexp-seq ) 
lexp-seq -» lexp-seq lexp | lexp 
a. (a 23 (m x y)) JD! | 
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‚Ца | 
3.7 a. [] 3.6 C 
в.1| Па П (a 23 (m x y ))| Ц 
3.8 П 
statement > if-stmt | other |: 
if-stmt > if (exp) statement else-part 
else-part > else statement |е 
exp 2 0|1 
а. 
if(0) if(l)other else elseother 
b. else 
с. | С 
3.9 (Аћо Sethi andUllman) | else 
3.4.3 
statement if (exp) statement | matched-stmt 
matched-stmt > i£ ( exp ) matched-stmt else statement | other 
exp > 0|1 
3.10 a. 3.6 ЕВМЕ 
Ь. Па ЕВМЕ 
3.11 X = (X + X)UN[] М 3.6.2 
a. E=NU(N+N)UINN+N+N)UN4+N4N4N)U... 
b. E ЕСЕП 
3.12 [] 3.3 [] BNF Ц 
а. -2-3 
E - 500 -2- (-3) -2--3 
b. -2--3 | --2|| -2---3 
с. 
3.13 3.6 
lexp > number | ( op lexp-seq ) 
ар |=|* 
lexp-seq — lexp-seq lexp | lexp 
| LISP ПП 
34-3*42|] (-34 (*3 42))] 
a. [] D (- 2 3 АҢ (- 2) (+ 2)П (* 2) 



































e 000000 











[2] 




































































0000 200000000000000000 
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3.16 
3.17 


3.19 


3.20 


3.21 
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3 
b. 
a. C 
b a (- 34 (* 3 42)) 
2:32 
exp > ОрЕхр (op,exp,exp) | ConstExp(integer) 
ор > Plus | Minus | Times 
BNF МЫ Haskell 
a. 
b. (34* (42-3)) 
3.3.2 typedef union 
3.5 w 
a. 
b.w и х W = ux 
a. ХСХ x[l]al] 5 
b a | 
Modula-2[] Ada 
Modula-2 
PROCEDURE P; 
BEGIN 
END P; 
END P 
a. 
A = aA |В |е 
Вә bB|A 
р. 
(а | с|ъа |ъс) * (| ғ) 
unit production А-В АП B 
а. 
Ь. 
cyclic grammar A А-А 
а. 
b. 
3.6[] TINY EBNF 
TINY 













































































104 Chinaspub.toN 
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х:=х+1; 


write х 
















































































































































































































































































































































































































































































































































































































































































































































































а. TINY 
b.[][] ТМУЈ U UU 
3.25 Ц | B HL TINY] E] 
read u; 
read v; { input two integers | 
if у=0 then v:-0 ( do nothing ) 
else 
repeat 
temp:-v; 
v:-u-u/v*v; 
u:=temp 
until v=0 
end; 
write u {output gcd of original u & v} 
ODAN 
| Hopcroft апа Ullman [1979] 
Ginsburg [1966, 1975] ППППППППП Chomsky (1956, 1959] uut 
Л ПП Algol60 Naur [1963] ПП 0000 
3.4.30 [] [] else ППППППП Abol Hopcroft Ullman [1986][] 0 0 0 3.90 0 
Ц || | 3.6.2 | | | 
Schmidt [1986] 











China=pubecom 


040 0000000 













































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































0000 
• • TINY 
e LLC) • 
° First Follow 
top-down 
3 3.3 backtracking parser 
predictive parser 
recursive-descent parsing 
LL(1) LL(1) parsing 
LL(1) 
LL(1) 
1 “ LA 
2 “ L" 
1 “ LL(k) ” 
—— k 
LL(1) First 
Follow Е 
TINY 
ал 0000000000000000000 
4.1.1 
A A 
A 
























































































































































































































































e П000000000000000000000000000 





106 





Chiha-pub.cot 























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































u Hut [] 000 ІП | | [] case if 
| 
exp — exp addop term | term 
addop > +|- 
term > term mulop factor | factor 
mulop > * 
factor > ( exp ) | number 
factor ППП | factor |] П Ц 00000 
procedure factor : 
begin 
case token of 
(: match( (); 
exp 5 
match( ) ) ; 
number 
match (number) ; 
else error ; 
end case ; 
end factor ; 
Ц Ц token П Ц 
П 0 ПЦПППЦПЦПП match] ПО] ПО П 
0000000 
procedure match ( expectedToken ) ; 
begin 
if token = ехресїеаТоКеп then 
getToken ; 
else 
error ; 
end if ; 
end match ; 
match{] factor 100 error[] 000 OU | 
match (() factor match (number) expectedToken| 
token|] |] match () )[] [| | token|] ДП ДП 
[] factor|] expl] | Ц Ц | 
expl] ПП 1етт] term factor factor [] ехр [] [] [] 
factor 000000 ЕВМЕ 100 









































































































































Chinaspubcom 





4.1.2 EBNF 


























































































































































































































if-stmt > if (exp) statement 




































































procedure ifStmt ; 
begin 

match (if) 3 

match (() 3 

exp; 

match ( )) ; 

Statement 3 

if token = e1se then 

match (else) ; 


Statement ; 


| if (exp) statement else statement 


107 








































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































end if ; 
end ifStmt ; 
| if | 
else else 1 
[] EBNF 
if-stmt > if ( exp ) statement else statement | 
BNF EBNF ifStmt 
ПП EBNFU П Ц Ц Ц Ц 
ЕВМЕ 
| ІП else 
ВМЕ ехр 
exp — exp addop term | term 
exp exp 
ехр|| term 
exp — exp addop term[| exp — term 
EBNF| 
exp > term | addop term | 



























































































































































































































































procedure exp ; 
begin 


term 3 


while token = + or token = - do 























108 















































match (token) : 
term 3 
end while ; 


end exp ; 


term|]] EBNF 
























































00000 


procedure term : 





begin 
Jactor ; 
while token = * do 
match (token) ; 
factor 5 
end while ; 


end term ; 


Сірге сом 


term — factor | mulop factor | 


















































101 




















ІП addop [| тшор | 

























































































addop > +|- 


mulop > * 
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НЧ 
function ехр: integer : 
var temp : integer ; 
begin 


temp := term 5 


while token = + or token = - do 


case token of 
+: match (+); 


temp := temp + term ; 


— : match (—) ; 


temp := temp - term ; 


end case ; 
end while ; 
return temp : 


end exp ; 
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getToken 


























00004-1 0000000000000000 





/* Simple integer aritbmetic calculator 
according to the EBNF: 


«exp» -> «term» ( «addop» «term» ) 
«addop» -» + | - 

«term» -» «factor» ( «mulop» «factor» } 
«mulop» -» * 

«factor» -» ( «exp» ) | Number 


Inputs а line of text from stdin 
Outputs "Error" or the result. 
*/ 


#include <stdio.h> 
#include <stdlib.h> 


char token; /* global token variable */ 


/* function prototypes for recursive calls */ 
int exp(void); 

int term(void); 

int factor(void); 


void error(void) 
1 fprintf(stderr, "Error\n"); 
exit (1); 


void match( char expectedToken) 
{ if (token==expectedToken) token = getchar(); 
else error(); 


main() 
{ int result; 
token = getchar(); /* load token with first 
character for lookahead */ 
result = exp(); 
if (token=='\n') /* check for end of line */ 
printf ("Result = %d\n", result); 
else error(); /* extraneous chars on line */ 
return 0; 
} 
int exp(void) 
1 int temp = term(); 
while ((tokenzs'4')||(tokensz'-')) 
switch (token) ( 
case '+': match('+'); 
temp+=term(); 
break; 





110 















































case '-': match('-'); 
temp-=term();/ 
break; 
) 
return temp; 


) 


int term(void) 
f int temp = factor(); 
while (tokenzz'*') ( 
match('*'); 
temp*=factor(); 
} 
return temp; 
} 


int factor(void) 
{ int temp; 
if (token=='(') 4 
match('('); 
temp = exp(); 
match(')'); 
} 
else if (isdigit(token)) 
ungetc (token, stdin); 
scanf("*d",&temp); 
token = getchar(); 
} 
е1ве еггог(); 
return temp; 
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40 | 
function exp : syntaxTree : 
var temp, newtemp : syntaxTree ; 
begin 
temp := term 5 
while token = + or token = — do 
case token of 
+: match (+); 
пеулетр := makeOpNode(+) : 
leftChild(newtemp) := temp ; 
rightChild(newtemp) := term ; 
temp := newtemp ; 
— i match (-) 3 
newtemp := makeOpNode(-) ; 
leftChild(newtemp) := temp ; 
rightChild(newtemp) := term ; 
temp := newtemp ; 
end case ; 
end while ; 
return temp ; 
end exp ; 
00000 
function exp : syntaxTree ; 
var temp, newtemp : syntaxTree ; 
begin 
temp :— term ; 
while token = + or token = — do 
newtemp := makeOpNode(token) ; 
match (token) ; 
leftChild(newtemp) := temp ; 
rightChild(newtemp) := term ; 
temp := newtemp ; 
end while ; 
return temp ; 
end exp : 
0000000000 makeOpNodeg П | HUUYUUUUUUUUUU ui Ц 
0000000 leftChild (t) := p[] rightChild (0) : p t] HD 0 UO D UD. pP 0000: 
Ц u exp 
[] exp Uil exp 
term 000000000000000 0 гету асю] П 0000 
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function ifStatement : syntaxTree ; 
var temp : syntaxTree ; 
begin 
match (if); 
match (() 3 
temp := makeStmtNode(if) ; 
testChild(temp) := exp 3 
match С) ) ; 
thenChild(temp) := statement ; 
if token = else then 
match (else); 
elseChild(temp) := statement ; 
else 
elseChild(temp) := nil ; 
end if ; 


end ifStatement ; 
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| | | 
TINY C 
BNF 
EBNF EBNF 
EBNF BNF 
А-0|р |... 
од] В А-а А-В 
оП ВО First | 4.30 
Е 
А> є 
А А 
АП Follow 4.3 
First Follow 
4-1 ) 3-2) 
exp|| term factor | | 1 ехр 
ехрП First 
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4 
42 11(1)ПП 
4.2.1 LL(1) 
1141) 
ша) 
S> (5) 5 |= 
3 3.5) 
() 4-1 4 
2 
$$ 
3 
EOF 4 
041 00000000000000 
00 0 ПП 0 0 
1 $5 O$ 5 (S) S 
2 $S)S( () $ ПП 
3 55) 5 ) $ Sve 
4 $5) ) $ ПП 
555 5 Se 
6 $ $ ПП 
$ StartSymbol InputString $ 
$ $ accept 
5 0 
BNF 
1) A2Q0 A а 
2) 
1 generate 
BNF 2 
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BNF 
а o, 
4-1 1 
55 05 
5 S> (5) S S) S ( 
$S)S( O$ 
55)5 )$ 
4-1 () 
$= (S) S [$2 (S) S] 
—()8 [5 ғ] 
= () [5 =] 
4-1 2 (S) S 5 4 
5 
4.2.2 LL(1) 
A 
A A 
LL(1) (LL(1) parsing table) 
$ M м, T] 
T| $ 
“ ” M [N, T] 
1) АЭ а a= “ар а А o 
MIA, a] 
2) АЭ а а= *£ [] $$ = *BAay 
а 51 А- о М ИА, a] 
1 а [vi a 
А-а 2 А А-а а 
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4 
A А-а А 2 (6 
First[] Follow 
1 (90 3 
$ S 5— (S) 5 
Š MIS, (J 
1 5 > (S) 5 2 Оте 
B= (,A=S,a=) Пү-5% 5-6 MIS, )] S $ = *S$ 
Se MIS, $] LL(1) 
MIN, T] ( ) $ 
S S— (S) 5 Soe Soe 
LL(1) 2 
G LL(1) 
LL(1) (LL(1) grammar) 
LL(1) LL(1) 
LL(1) 4-2 LL(1) 
4-2 
else 




































































0000 4-2 0000 (10000 





(* assumes 5 marks the bottom of the stack and the end of the input *) 
push the start symbol onto the top of the parsing stack 5 
while the top of the parsing stack # $ and the next input token # $ do 
if the top of the parsing stack is terminal a 
and the next input token = a 
then (* match *) 
pop the parsing stack ; 
advance the input ; 
else if the top of the parsing is nonterminal А 
and the next input token is terminal a 
and parsing table entry M[A, a] contains 
production А э ХК... X, 
then (* generate *) 
pop the parsing stack 3 
for i := n downto 1 do 
push X, onto the parsing stack ; 
else error ; 
if the top of the parsing stack = $ 
and the next input token = $ 
then accept 
else error ; 
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| O iff О 30 3.6] 
statement — if-stmt | other 
if-stmt = if (exp) statement else-part 
else-part > else statement |e 
exp > 0 |1 
LL(1) 4-2 ПЕШ ШИГ 00 (0) 
| | 
04-2 0000000001 (1)000 
M [N, T] if Other else 0 1 $ 
statement statement statement 
2 if-stmt 2 other 
if-stmt if-stmt > 
if (exp ) 
statement 
else-part 
else-part else-part > else-part 
else > 
statement 
else-part— є 
exp Exp > 0 expo 1 
4-2 M[else-part, else] Ц Ц else[] 
Ц Ц Ц ul НО 
| | 
else-part > else statement 
[] else-part ЕП [] D | o 4- 
2 LL(1) 
4-3 LL(IU UU 00! 
if(0) if(1) other else other 
0000000000001 statement = S|] if-stmt = I[] else-part = І] exp = ЕП if 
= i|] else =е|] other- о) 
043 000000000000000000 4 (1)00 
поро п 0 ПП 
55 i(0)i(1)o0eo$ 51 
51 1(0) 1 (1) оео$ I> ií (Е) SL 
415) Е(1 i(0)i(1)0eo$ ПП 
515) Е( (0)i(1)0eo$ ПП 
515) Е 0) 1 (1) оео$ E20 
$15 ) о 0) 1 (1) оео$ ПП 
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000 D 0 0 0 
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SLLS)E( (1) оео$ ПП 
514.5) Е 1) оео$ E21 
811,8) )oeo$ ПП 
$115 оео$ $20 
$LLo oeo$ ПП 
SLL eo$ Іэ е 5 
$15 е ео$ ПП 
518 o$ 5- о 
$Lo o$ ПП 
$L $ Lt 
$ $ ПП 
4.2.3 
LL(1) [] | 
LL(1) 
EBNF LL(1) | 
BNF LL(1) [] 
left recursion removal left factoring[] 
LL(1) EBNF 
LL(1) “ ” 
1) | 
ехр-» ехр аааор їегт | їегт 
addop 
addop 
exp exp + term | exp — term | term 
immediate left recursion 
exp 
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o[] В BOO A 3.2.3 
Ba" (nz 0 А>В АЭА 
[] p 
А > ВА” 
A’> dA’ | е 
4.1 
exp — exp addop term | term 
A > Аа | В А = ехр а = addop term[] В = term 
exp = term exp’ 
exp’ > addop term exp’ |£ 
2 
A 2 Аа | Аа, |... | Ав, | B,IB, |... | D, 
Dess Р, A 
АВА | В,А | ...]B, А” 
A' >a A |o,A' |... | @ A’ |e 
4.2 
exp exp * term | exp — term | term 
exp = term exp’ 
exp’ > + term exp’ | — term exp’ | £ 
3 
€ cycle 
A = 9=>*А 
A ? A, 
A’ AA Y jsi m 
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for i := 1 ton do 
for j := 1 to 1—1 do 


replace each grammar rule choice of the form A; > 
A; ai В | о В |... | ax В, where А; — од | az НӨ a 


the current rule for A; 
remove, if necessary, immediate left recursion involving A; 


A; B by the rule 




























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































exp 2 term exp’ 


exp’ > addop term exp’ |£ 


addop > + |- 


term — factor tern’ 


term’  mulop factor term’ |£ 


mulop > * 


factor > ( exp) | number 


D41 0000000000000000 


4.3 
А > Ва|Аа|с 
B Bb|Ab|d 
| 
В А A,=A А, = BY n=2 4-3 
1-1 1-2 1-1 
ШІП А 
А-ВаА |cA 
A'2 аА | ғ 
B Bb|A b| d 
1-2 j=1 1 
A B>Ab 
АэВалА(сА 
A >a |е 
B> Bb|BaA'b|cA'b|d 
b|] üt | | 
Аэ ВаА'|сА' 
A' 2 a АЛЕ 
B»cA bB АВ 
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4.1 4-1 
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exp' 
factor addop term 
| exp' 
number factor " d | ы 
~ addop term exp' 
number 
% factor Е 
number 
3 4 
| 3 exp 
ПП еохФППП exp’ 4 zj П dog 
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, 
ехр 





ргоседиге ехр ; 
begin 
term у 
ехр”; 
end ехр; 
procedure exp' ; 
begin 
case token of 
+: match (+) ; 
term 3 
exp’ 5 


- : match (-) ; 


exp 
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term 3 

exp’ 5 

end case ; 
end exp' ; 
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function exp : integer ; 


var temp : integer ; 


begin 


temp := term ; 


return exp'(temp) : 


end exp ; 


function exp' ( valsofar : integer ) : integer ; 


begin 


if token = + or token = — then 


case token of 


+ : match (+); 


valsofar := valsofar + term ; 


= i match (-) 3 


valsofar := valsofar - term ; 


end case ; 


return exp' (valsofar) ; 


else return valsofar ; 


end exp' ; 
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factor 
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factor factor ^ factor > 
(exp ) number 
2) 
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stmt-sequence — stmt ; stmt-sequence | stmt 
stmt s 
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if-stmt > if (exp) statement 
| if (exp) statement else statement 
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while there are changes to the language do 
for each nonterminal À do 

let а be a prefix of maximal length that is shared 
by two or more production choices for А 


На = = then 
let A — a; [оз |... | о, be all the production choices for A 
and suppose that à, . . . , ах share а, so that 


А>аВ, |... | а В [ок |... | ал the Bj's share 
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no common prefix, and the «к, ЭР 
replace the rule А — a, | оо |... | о, by the rules 
A—aA' | ay, 


A' — В, | 


wun | Op 
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term exp’ 
















































































exp — term exp’ 


exp’ > + term exp’ |e 
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— n —nna 






































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































+ 
4.7 LL(1) 
statement  assign-stmt | call-stmt | other 
assign-stmt > identifier:- exp 
call-stmt ^ identifier ( exp-list ) 
identifier, assign-stmt |] call-stmt 1 1141) 
identifier 
assign-stmt |] call-stmt 
statement > identifier := exp 
| identifier ( exp-list ) 
| other 
statement = identifier statement 
| other 
statement’ > := exp | ( exp-list ) 
statement’ 
LL(1) 
LL(1) 
1141) 
4.2.4 (1) 
LL(1) 4.2.1 
LL(1) 
LL(1) 
4.8 BNF 



























































































































































E-E*n|n 





















































































































































LL(1) 























Е> n E 
Е' од + пЕ |Е 














Chinaspubcom 
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4 

value stack 1 | 

[] 1 match 2 

(#) ІШ 
“ +" Е 
Е > + в#Е'| Е 
Ц Ц ЕП 
3-4-5 
4-5 
04-5 04800000000000 

П ПП П П П П П 

$E 3 + 4 + 5 E> пЕ' $ 

$E' n 3 + 4 + 5 ПП/ПП 5 

SE + 4 + 5$ Еэ +n#E' 35 

ФЕ #п+ + 4 + 5 ПП 3$ 

$E'#n 4+5$ ПОЛО 3$ 

$Е'# + 5$ ППП 438 

$Е' + 5$ Еэ +n#E' 7$ 

$E'#n+ +5$ ПП 7$ 

SE'st n 5$ ul 7$ 

$E $ 000 578 

$E $ Е-е 12% 

$ $ ПП 12% 
4.3 First[] ПП ҒоШомП [] 

LL(1) LL(1) 
First Follow П 
1141) 
4.3.1 First 
П | 100 ЕП ІП First (X) O00 
€ 
Е First (X) = {X} 
2. l] X Х-Х Х,... X [| First (X) First 
(X,)- {=} і<п First (X, ),...,First (X ) 
















































































126 (Улэграфмом 
——  — 11 | 









































































































































































































































































































































































































































































































































































































































































































































































































































































































































£ First (X) First (X,,,) - {=} First (X,),..., First (X, 
) £ First (X) Е 
о-Х Х,...Х First (о) 
П First (о) First (X) - {=} ї=2,..., n| | kal sess 
i- Ш First (X, ) £ First (0) First (X, ) - {=} 
1=1,... n|] First (X, ) £ First (0) Е 
А First 
(A) First al] First n First 
п о 
4-5 





















































OO0045 00000000 A00 First (АППП 


for all nonterminals A do First(A) :— (Қ 
while there are changes to any First(A) do 
for each production choice A > X,X;... X, до 
k:= ] ; Continue := true 1 
while Continue = true and К <= n do 
add First(X,)—{e} to First(A); 
if e is not in First(X,) then Continue := false ; 
ki=k+1; 
if Continue = true then add e to First(A) ; 





Е А 
А-Х... First (А) First (X, ) 
4-5[] k= 1 while 4-6 
Е Е First (X ) x 

















































































































































































































































































































































































































































































































































































































































































































































































































































































































000046 000 =000000000 4-50 000000 


for ай nonterminals А do РЕКА) := (1; 
while there are changes to any First(A) do 
for each production choice A — Х.Х... X, do 
add First(X) to First(A); 




















































































































































































































































































































































































































































































































А-э%Е А nullable 
First ( A) £ A 
A First (A) £ 
А->в АЕ 
First (А) First (g) ={ £) <n 
АЗХ,...Х, > Äe п AS X... X П 












































































































































ШТ 5 
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4 
Х | | | Е x 
x = ЖЕ | п 
Ц iL] First (Х,) ІППЕ First (А) £ 
O OUUU L First [] Ц 
4.9 9 
exp > exp addop term | term 
addop > +|- 
term > term mulop factor | factor 
mulop > * 
factor > (exp ) | number 
| 
(1) exp — exp аааор term 
(2) exp — term 
(3) addop > + 
(4) addop > - 
(5) term > term mulop factor 
(6) term > factor 
(7) mulop > * 
(8) factor > (exp ) 
(9) factor > number 
| š 4-6 IU 
115 First[] БЕ 1 П First (exp) 
First (exp) 
4-6 | 1 
[] 2[] First (term) First ( exp) First (term) 
3[] 4 First (addop) “+” Д“ —” First (addop) = [+ , —) 5 
6[] First (factor) First (term) First (factor) 
Uu П 70 First (шор) * 1 0 First (mulop) = {*} 0 80 ¢ 
First (factor) 9[] number First (factor) First (factor) = (. (, number 
} 11000 10 50 
(First(term) 6[] First (factor)[] | First (term) First (factor) 2 ( (, number 



























































) 



































































































































1 


































































































e ПППППППППППГ 
ПП Fist] 0000000 
e 000 +000000000000 


First (term) = í (, number | 8[] 9 
2 First (term) First (exp) 
4 
(00000000000000 120 0000000000000000 
П First] 00 


[] First (exp) = { (, number | 












































































































































































































































128 China-bub«co 
а м 


































































































































































































































































































































































































































































































































































































































































































| Виз | 
First (exp) = [ (, number | 
First (term) = ( (, number | 
First (factor) = ( (, number | 
First (addop) = ( +, — } 
First (mulop) = ( *) 
factor) ПП 000 4 
20 4-6 
ИНО Ц 001 U | | 
04-6 0049000000 First[] Ü 
0000 010 020 о 30 
ехр = ехр 
addopterm 
exp 2 term First (exp) = 
{С number} 
addop > + First (аааор) 
= (+) 
addop > - First (аааор) 
= {+, -} 
term — term 
mulop factor 
term — factor First(term) = 
{ (, number} 
mulop = * First (mulop) 
-(ж) 
factor > (exp) First (factor) 
-10 
Jactor > number First (factor) = 
{С number) 
4.10 i 4.5 | | 
statement — if-stmt | other 
if-stmt > if ( exp ) statement else-part 
else-part > else statement |ë 
exp э 011 
Е else-part 
First £ £ 
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(1) statement — if-stmt 


(2) statement > other 


(3) if-stmt > if (exp) statement else-part 


(4) else-part > else statement 


(5) else-part > € 


129 























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(6) exp > 0 
(7) exp > 1 
| First | 
First (if-stmt) 1 2 E 
other || First (if-stmt) | First (statement) = { other}{] П П З 1Ё|] First (if- 
ти [] First (if-stmt) = {if} АП First (еїяе-рагО П 0 еївей [] П First (else-part) 
= {else}[] || [] 5U First (else-part) = First (else-part) = (eise, е) 6 П 7 
UI 0[] 1 First (exp)l] First (exp) = (0, 1} 10001 ПОП 
First (if-stmt) ЗЕ] | П П if[] 0 First (statement) First 
(statement) 2 (if,other] 2 | | 3 
[] First | 
First (statement) = [ if, other} 
First (if-stmt) = {if} 
First (else-part) = {else,e ) 
First (exp) = {0, 1} 
47000 4-6 0000000000000000000000000000 
| | | 
04-7 004.100 00000 First 0 
0000 П ІП 0 20 
statement — if-stmt First (statement) = 
(if, other] 
statement > other First ( statement) = 
{other} 
if-stmt 2 if (exp) First ( if-stmt) = 
statement else-part {if} 
else-part > else First ( else-part) = 
statement {else} 
else-part> є First ( else-part) = 
{е1ѕе,ғ} 


ехр э 0 


exp > 1 


First (exp) = {0} 
First (exp) = (0,1) 





П 4.11 р 



















































































4.40 








stmt-sequence > stmt stmt-seq' 


stmt-seq' > ; stmt-sequence le 





130 















































stmt > в 














































































































Chinaspubcom 


(1) stmt-sequence > stmt stmt-seq' 


(2) stmt-seq’ > ; stmt-sequence 


(3) stmt-seq' > є 


(4) stmt > в 

























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































1 1 2 3 First (stmt-seq’) = {;,} 4 
First (stmt) = {5} 2 1 First (stmt-sequence) = First (stmt) = (s) 
3 First 
First (stmt-ewquence) = [ s) 
First (stmt) = {s} 
First (stmt-seq’ ) 2 {;,€} 
4-6 4-7 
4.3.2 Follow [|] 
A Follow(A) $ 
Follow(A) 
l.[]A $ Follow(A) 
2. B 04 First (y) - (2) Follow(A) 
3. B «А e [] First(y) Follow(A) Follow(B) 
Follow 
“ $” Follow 
$ 
Follow 
Follow 
“ ” g Follow 
e [] First 
Follow $ 
EOF 
Follow First 
Follow LL(1) 
Follow 
Follow Е Ж First 
“ E а, А А-а АП Follow 
А Follow (4) П 
Follow First 
| First 
A2 oB Follow (B) (3) Follow (A) 
A A aB “ "П 







































































































































































































































































АЛТҰТ ДАУ 


131 




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































4 
First A2 Bo, First (A) First (B) £ 
000 470 0 Follow [] Follow ППП 
3 Follow | IUU | |3 First First 
Е 
ПППП4-7 ПП Роном 0000 
Follow(start-symbol) := 181; 
for all nonterminals A + start-symbol do Follow(A) := {¥ 3 
while there are changes to any Follow sets do : 
for each production A — ХХ... X, do 
for each X; that is a nonterminal do 
add First(X; АХ ... X,) хан {=} 10 Follow(X;) 
(* Note: if i=n, then Х.Х»... Xn = &*) 
if є is in First(X;,. 1Х;+2 ал. X then 
add Follow(A) to Follow(X;) 
4.12 4.9 First 
First (exp) = 1 (, number | 
First (ferm) = ( (, number | 
First (factor) = ( (, number | 
First (addop) = { +, - } 
First (mulop) = { *} 
(1) exp — exp addop term 
(2) exp > term 
(3) addop > + 
(4) addop > - 
(5) term > term mulop factor 
(6) term > factor 
(7) mulop > * 
(8) factor > ( exp) 
(9) factor > number 
3 4 7 9 Follow 
Follow (exp) = (8) Follow 
1 3 Follow exp|] айдорП term First (addop) Follow 
(exp) Follow (exp) = ($, +, -} First (term) Follow (addop) 
Follow (addop) = { (, number} Follow (exp) Follow (term) Follow 























(term) = {$, +, -} 
2 Follow (exp) 




































































































































































Follow (term) 

































































































































































Follow | 
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ПЕТ ХАС 


























































































































































































































































































































































































































































































































0 050 30 01 П First (mulop)[] П [] Follow (term)[] O О П Follow (term) = {$, +, -, *} 
0000 First (factor)[] Follow (mulop)(] П | Follow (mulop) - ( (, number] ДП 
Follow (term)| Ц Follow (factor)L] Follow (factor) = ($, +, -, *} 

006000 ПО 5000 0000 IU adul 

80 First ())={)} Follow (exp) Follow (exp) = ($, +, —, ) } 
211 [] 10 ) Follow (term)[] (0 0 Follow (term) = {$, +, —, *, ) })0 
Follow (factor)[] ( Follow (factor) = ($, +, –, х ) DU 30000000000 
Ш ШИ ЈА ПППППППЦП Follow[] O O 
Follow (exp) = {$, +, –, ) } 
Follow (addop) = ( (, number] 
Follow (term) = ($, +, -, *,) } 
Follow (mulop) 2 ( (, number] 
Follow (factor) = {$, +, -, *, ) ) 
ПППП First] 000 ПППППП П 4-80 0000000000000 
Follow 
[] | exp  term|] term > factor 
П 4-8 10 4.120 00000 Follow[] р 
0000 010 020 
exp > exp addop Follow (exp) = Follow (term) = 
term {$, +, -} {$, +, —, *.)] 
Follow (addop) = 
{ 6 number} 
Follow (term) = 
(8, +, -} 
exp — term 
term — term mulop Follow (term) = Follow (factor) = 
factor (8, +, -, ж} (8, +, 7, *.)] 
Follow (mulop) = 
{ (, number} 
Follow (factor) = 
$, +, -, *} 
term — factor 
factor > (exp) Follow (exp) = 
$, +, —,)) 
4.13 ІП fl] 1000 4100000000 First 001 





























































































































First (statement) = (1f, other} 
First (if-stmt) = (if) 
First (else-part) = (е1зеге } 






























































Chimaspub com д 133 
WE 


First (exp) 2 {0,1} 



























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































111011 D 1 100 ПП 
(1) statement — if-stmt 
(2) statement — other 
(3) if-stmt — if (exp) statement else-part 
(4) else-part > else statement 
(5) else-part > є 
(6) exp > 0 
(7) exp 2 1 
2 5 60 ПП 70 Follow[] р 0 ULDI |ОЦ | 
Follow (statement) = (9 0 0 Ú IUU Follow ПП] | 
[] Follow (statement) Follow (if-stmt)| П [] Follow (if-stmt) = ($)[] | 3000 D]. expl] 
statement[] else-part[] Follow[] ППП Follow (exp)[] [] First 0) = (0 } O О Follow (exp) = 
01 Follow (statement) П [] First (еїзе-раг д)-1611 ПО Follow (statement) = (5, else} 
| Follow (if-stmt) [] [] L] Follow (else-part) (| Follow (statement) if-stmt|] [| 
1 [] [] Follow (else-part) = ($) П 2 | ПО 10000 АП Follow 
(else-part)|] П [] Follow (statement) П П | | 0000 
П 2 ПОП 1000 Follow (statement) ПП Follow (f-stmt) П П О О Follow (if- 
stmt) = 1%, else} 3 | else Follow (else-part) Follow (else- 
part) = (5, ехве 0 000004000000 ЗОО 000 0 0 0 0 0 00000 | 
П [] Follow 
Follow (statement) = ($, e1se] 
Follow (if-stmt) = {$, else} 
Follow (else-part) = {$, else} 
Follow (exp) = {) } 
ull ID | | 
0 4.14 9041100 1000 ПП ПППП Follow 
(1) stmt-sequence — stmt stmt-seq' 
(2) stmt-seq' > ; stmt-sequence 
(3) ѕіті-ѕед > £ 
(4) stmt > в 
| 4.11 П First П 
First (stmt-ewquence) = (s) 
First (stmt) = (s) 
First (5101-5647) = [; ЈЕ) 
П 3 411 [] [] Follow[] [] [] Follow ( stmt-sequence) = ($)[] 
Follow[] | 101 Follow (stmt) = (; )[] Follow (5111-8649 = ($) [J 
2 E E П ПП Follow[] [] 













































































































































































Follow (stmt-eequence) = {$} 


















































134 (Улэграфмом 
__ us. 


Follow (stmt) = (; } 
Follow (stmt-seq’) = {$} 


















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































4.3.3 ПП LL(1)E 
LL(1) 4.2.2[] 
1) А-о © = «ор a А-о 
| M [A, a] 
2) A>e || ғ S$ = *aAa В $ а 
$ Ае МТА, a] ПП 
1 а First (00) 2 a [] [] Follow (A) 
LL(1) 
LL(1) MIN, T] ПОА А> о 
1) First (00) а АЭ а M [A. a] 
2) П e [D First (000 [ Follow (A) [] a uus [] A2 a [] [] 
МИА, а] 
Ц ОПП U | T ПП Ц 
ВМЕ ІП LL (1) | LL(1) grammar 
1. Аво, |o, |.. јо | iO jl] 1x i[] јел] 1730 First (a ) 
First (0, ) 
2. [] A First (A) e[] [] [] First (A) Follow (А)0 П 
| | 
4.15 
4.9 
exp > term exp’ 
exp’ > addop term exp’ |е 
addop > +|- 
term > factor term’ 
term’ => mulop factor term’ |e 
mulop > * 
factor > ( exp ) | number 
First[] 0 [] Follow[] 0 П П П 
First (exp) = 1 (, number} Follow (exp) = ($, )} 
First (exp’) = { +, —,£] Follow (exp?) = {$, ) ) 
First (addop) = { +, —) Follow (addop) = ( (, number) 
First (ferm) = ( (, number] Follow (term) = ($, ), +, -} 
First (term) = ( *,¢} Follow (term) = ($, ), +, -} 


First (mulop) = ( *} Follow (mulop) = { (, number} 






























































China-pub.toM | 135 
пп 


First (factor) = { (, number} Follow (factor) = ($, ), +, -, *} 
| O 1441) 4-4 






































































































































4.16 НОО 




































































statement — if-stmt | other 
if-stmt = if (exp) statement else-part 


else-part > else statement le 





























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































ехр- 0|1 
П First[] О О Follow ІП 4.100 0 4.130 | | 
First (statement) = (1f, other) Follow (statement) = ($, else} 
First (if-stmt) = {if} Follow (if-stmt) = (5, else} 
First (else-part) = (е18е,6| Follow (else-part) = ($, else} 
First (exp) 2 (0, 1) Follow (exp) = {) ) 
U LLC) ПП 4-3 
4.17 4.4 ) 
stmt-sequence — stmt stmt-seq' 
stmt-seq’  ; stmt-sequence |е 
stmt > s 
11111111 First Follow[] ПП 
First (stmt-ewquence) = (s) Follow (stmt-eequence) = {$} 
First (stmt) = (5) Follow (stmt) = { ; , $) 
First (stmt-seq’) = {;,=} Follow (stmt-seq’) = {$} 
| 1-3 | 
МТМ, T] s ; $ 
stmt-sequence stmt-sequence 2 
stmt stmt-seq' 
stmt stmt Bs 
stmt-seq' stmt-seq' > stmt-seq > € 
; stmt-sequence 
4.3.4 | LL(K)[] 0 
k First, (0) = ( w Ja Ху } w 
U w =w[l lk П w П К wl] Ц | 
Follow, (А) = { w, | S$ => * aAw} kzl й a 
(к) 
LL(k) [] П 
| Ц | 
LL(K) | [] | Follow П П Ц | | 


























































































































































































































136 




















































































































LL(k) 





















































parsing)[] SLL(K) SLL(K) parsing 








СМпачрирсоћ 


























1448) (Strong LL(k) 


































































































LL(k) SLL(k) 






























































































































































LL(1) 











































































































LL(D k 





























































































































1448) 











































































































































































































































































































LL(k) 

















44 ПМУОПОООООООООО 




















B TINY 

















































































































3.7 

















































































































































































































4-8 EBNF 






































3 





























3-1 












































0000 4-8 EBNF 








D ТІМҮр 0000 





program -> stmt-sequence 


stmt-sequence — statement ( ; statement | 
statement — if-stmt | repeat-stmt | assign-stmt | read-stmt | write-stmt 
if-stmt — if exp then stmt-sequence | else stmt-sequence | епа 

repeat-stmt — repeat stmt-sequence until exp 


assign-stmt — identifier := exp 
read-stmt — read identifier 
write-stmt — write exp 


exp — simple-exp [ comparison-op simple-exp | 


comparison-op — < | = 

simple-exp — term [ addop term | 
addop — + | - 
term — factor { mulop factor ) 
тшор-» У | / 


factor — ( exp ) | number | identifier 














TINY 4.1 













































































































































































рагзе.Һ|| рагѕе.с|| parse.h 














TreeNode * parse (void); 















































850 















































865 







































































parse 

















parse 
































































































































parse.c B 900 














1114 

















11 
















































































4-8 EBNF 


















































stmt-sequence statement|] 5 








































































































































































































program 









































































































































match 

























































































syntaxError 
stmt sequence 


stmt sequence 


getToken 


stmt sequence 


















































token 







































































parse 






















































































st 




















token 1 


mt sequence 























































































































































































































China=pubecom 











































































































stmt_sequence 































































































































































































































































































































































































util. 














350 526 










































































util.h 

















300 











335 






































newStmtNode 


421 







































































newExpNode 






























































































































































455 


































































































































































































pyString 





































































































printTree 


473 








506 util.c 





































































































































































































printTree 


































































































traceParse 



































































































































3-3 























3-6 






































traceParse 



















































































000 4-9 


D printTree[] ПП 











000 TINYD OO 





Read: x 
Tf 
Op: < 
const: 0 
Id: x 
Assign to: fact 
const: 1 
Repeat 
Assign to: fact 
Op: * 
Id: fact 
Id: x 
Assign to: x 
Ор: - 
14: х 
const: 1 
Ор: = 
14: х 
const: 0 
Write 
Id: fact 





45 ППППППП 


0000000 






























































































































































































































































































































































































































































138 Chinaspubcom 
— — 00 | 





























recognizer 





































































































































































































































































































































































































































































































error repair 





































































































































































































































































































































































































































































































minimal distance error correction 

















































































































































































































































































































































































































































































































































































































































































































































































































3) error cascade problem 





































































































































































































































































































































































































































































































































































































4.5.1 




















































































































panic mode 










































































































































































































































































































































































































































































synchronizing token 



























































































































































































































































scan ahead[] 













































































































































































































































































































































































































































































e 0000 М [197611 000000“ 000” 


[2] 


ПППППППППППППППППП 


ШТ 5 










































































































































































































































































































































































































































































































































































































































































































































































Follow|[] [] U | 10000 ЕоПом!] [] ПО 
00000000000 First 000 | 
|] 4.12 
П 111111) 4-1 П П | match 
error|] | | П | checkinput П 
scanto 
procedure scanto ( synchset ) ; 
begin 
while not ( token in synchset Л $ }) do 
getToken ; 
end scanto ; 
procedure checkinput ( firstset, followset ) ; 
begin 
if not ( token in firstset ) then 
error ; 
scanto ( firstset U followset ) 3 
end if ; 
end; 
Ц $0 00 ПП EOF 
00000000 expl factor ППП ПОП synchset[] П | 




































































































































































procedure exp ( synchset ) ; 
begin 
checkinput ( { (, number |, synchset ) ; 
if not ( token in synchset ) then 
term ( synchset ) ; 
while token = + or token = - do 
match (token) ; 
term ( synchset ) ; 
end while ; 
checkinput ( synchset, { (, number |); 
end if; 
end exp ; 


procedure factor ( synchset ) ; 

begin 
checkinput (( (, number], synchset ) ; 
if not ( token in synchset ) then 
















































































140 Chinashpub com 
—— Pan | 


case token of 

( : match (() 3 
ехр({)}); 
match() ) ; 

number : 
match(number) ; 

else error ; 

end case ; 

checkinput ( synchset, { (, number |); 

end if ; 
end factor ; 

















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































checkinput First 
Follow synchset 
checkinput |] error (2+-3)*4-+5 1 
| 2 
synchset 
factor Follow 
exp synchset 
(2+*) | 
С 
4.52 [|] LL(1) П П П 
LL(1) 
synchset 
checkinput © 
A First(A) Е 
First(A) First (A)) 
4-2 
checkinput 
LL(1) | A First(A) Е 

First(A) First (А)) 3 

1) А 

2) 

3) 

e П0000000000000000000 слесктри 0 ОП 00000000000000000 4.2.40 

0000000000000 





























Chinaspubcom 





































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































4 
$ Follow(A) 1 | 50 0 
First(A)uFollow(A) 2 3 
[] [] D U 10 B D D U UL О pop 2 [] 
scan[] [] П popU D D #0 
LL(1) 4-4 4-9 (2+%) 
Ц 11-01 Ц Ц 4-10 Ц 1 Ц 
(2+ П Е ехр ЕЈ ПО exp’ 
2 1 [] П П 
04-9 00000000 4 (1)00000 4-40 
M [N, T] ( number ) "n = ” $ 
exp exp exp pop scan scan scan pop 
term exp” term exp” 
exp' scan scan ехр' є exp’ > exp = 
addop addop scan exp’ = 
term exp’ term exp’ 
addop pop pop scan аааор-» аааор-» всап рор 
+ - 
тетт term term 
factor factor pop pop pop scan pop 
term’ term’ 
term’ scan scan term > в term/2 € term => € term’ > term > e 
mulop 
factor 
term’ 
mulop pop pop scan scan scan тшор-» * pop 
factor factor> factor> pop pop pop pop pop 
(exp ) number 
0 4-10 ІКИППППППП 49000 
пор ПП 0 0 
SET) ЕТ *)$ 000000 
$ЕТ) ET )$ 000000 
ЗЕТ)Е )$ E >e 
SET) )$ ПП 
5ЕТ 5 Тог 
ФЕ” $ E >e 
$ $ ПП 
4.5.3 [] TINY| 
| В 00000 ТМҮП | 000 















































































































































































































































142 Chiashub.coW 
—— —M- Run 





























































































































































































































































































































































































































































































































match 
statement|| factor 
Li рагѕе | || Li 
“ | F1 n [] | [] 
write 
5 read x H 
6: if 0 « x then 
7 fact := 1; 
8 repeat 
9: fact := fact * x; 
10 x іш x _ 1 
Lis until x = 0 ; 
12: write fact ; {<- - BAD SEMICOLON ! ) 
13: end 
14: 
i | Ц | | ПШ 























































































































Syntax error at line 13: unexpected token -» reserved word: end 


Syntax error at line 14: unexpected token -» EOF 





















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































2 и < ” 
5 read x ; 
6: if 0 x then { ж= == COMPARISON MISSING HERE! } 
7: fact = 1; 
8 repeat 
9: fact = fact * x; 
10 x =x - 1 
11: until х = о; 
12 write fact ; 
13: end 
14: 
4 
Syntax error at line 6 unexpected token -> ID, name = x 
Syntax error at line 6 : unexpected token -> reserved word: then 
Syntax error at line 6 : unexpected token -> reserved word: then 
Syntax error at line 7 unexpected token -> ID, name = fact 
TINY 
1 match 
2 stmt_sequence 
EBNF 

















statement (); 
while (token==SEMI) 
1 match(SEMI); 








China=pubscom 










































































143 
































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































4 
statement () ; 
} 
stmt_sequence 
statement() ; 
while ((token!= ENDFILE) && (token!= END) && 
(token!= ELSE) && (token!= UNTIL) ) 
{ match (SEMI); 
statement () ; 
} 
4 stmt_sequence|] Follow 
Ц First statement[] factor|] [| 
Follow First 
1 
stmt_sequence 
match 
statement|| factor 
ПО 
4.1 4.1.2 ехр term{] factor| 
4.2 А—(АЈА | е 
4.3 
statement > assign-stmt | сай-ят | other 
assign-stmt 2 identifier:- exp 
call-stmt > identifier ( exp-list ) 
4.4 
lexp > number | ( op lexp -seq ) 
op> +|-|* 
lexp -seq — lexp -seq їехр | lexp 
[] | expl] П 300 | 3.13 
4.5 4-4 1141) 
a. 3%4%5-6 b. 3* (4-546) c. 3- (4+5*6) 
4.6 4.2.2 1 LL(1) 
a. (0) 0 b. (00) c. () CO) 
4.7 A2 (АЈА | в 
а. А First Follow 
b. [1 [] LL(1) 
4.8 































































































144 Chinashpub com 
—— 


lexp > atom | list 

atom > number | identifier 
list > ( Іехр -seq ) 

lexp -seq > lexp -seq lexp | їехр 
































First Follow 













































































LL(1) 
LL(1) 































































































ce Rose 





w 
о 
м 


) (с)) 
1441) 
4.9 4.8 



































































































































lexp — atom | list 
atom > number| identifier 
list > ( lexp - seq ) 


lexp -seq — lexp , lexp -seq | lexp 












































First Follow 



























































LL(1) 
LL(1) 





































































































° 8 ° => 





(а, (b, (2)), (е)) 
LL(1) 0 
4.10 П C О П 


аесіағайоп -> type var-list 



































































































































type > int | float 


var-list > identifier, var-list | identifier 















































First Follow 















































LL(1) 
1441) 




























































































cao sp 






































4.11 4-40 0 ААХ | 
















































































default entry 














































































































































































































4-4 




















































































































412 a.LL(1) 
b. | 1441) 








































































































China=pubecom 


4.13 
4.14 
4.15 


4.16 


4.22 
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4 
с. LL(1) 
LL(1) 
4.3.3 First Follow 
S П 5, e S ® 5, = { First (xy) | x€S,, 
ye S, } 
a. | U AD B First(AB) = First (A) © First(B) 
b. 4.3.3 А-а П A> В (First (о) © 
Follow(A))r"(First(B) © Follow(A)) 
A A 
a. 
b 
с. First 
Follow LL(1) 
4.3.3 
4.16[] 
4.15[] First| Follow 
a. 4.7 First Follow 
b (a) LL(1) 
А > ада |: 
а. LL(1) 
b. 
procedure А; 
begin 
if token = a then 
getToken ; 
A; 
if token = a then getToken ; 
else error ; 
else if token < > $ then error ; 
end A ; 
c. backtracking 
unGettoken 
A A 
Авала 
АУ є (5) aaaa$ 
4-8[] TINY 
TINY 





























































































































146 


















































if 0 then write 1»0 else х 


СМһагрф со» 


іш (х<1)41 епа 





































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































ТІМҮ | 1 repeat 
write assign 
4.23 and[] ох | not 4-8[] TINY 3.5 
4.24 4.23] TINY 4.22 4.23 
4.22 
4.25 .5.1 
while (2) (3) 
2 
4.26 4-9 (24-3) *4-45 LL(1) 
4.27 4-2 LL(1) 
(2+-3)*4-+5 
4.28 а. TINY stmt_sequence 
TINY ) 
= 2 
=x + 2 
b. 
x 2 
y := x + 2 
с. stmt_sequence 
statement () ; 
while (token = SEMI) 
{ match (SEMI); 
statement () ; 
} 
stmt_sequence a b 
0000 
4.29 4-1 
а. / 
Ь. 5 
с. 
4. = 3.12 
4.30 4-1 
4.31 4-1 
































































































































































































































China-pub.coM 



















































































147 






















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































4 
4.32 a. 4-1 3.3.2 
b. a 
4.33 4-1 4-1 
4.34 
lexp > number | ( op lexp -seq ) 
ор > *|-|* 
lexp -seq — lexp -seq lexp | lexp 
LISP 
34-3*42 (- 34 (* 3 42)) 
4.35 a. 
b. a 
4.36 a. 3.4 
NFA[] Thompson 2 
b. NFA a 
DFA 
c. (b) 
DFA grep 
4.37 «- - >= <> 
TINY 
4.38 4.22 TINY 
4.39 4.23 TINY 
4.40 a. 4-1 4.5.1 
b.[]a 
441 TINY match 
match match 
syntaxError 
syntaxError match 
4.42 4.5.1 TINY 
4.43 LL(1) Е " 
Wirth [1976] C 
































































































































































































































148 


















































typedef struct rulerec 
{ struct rulerec *next, *other; 
int isToken; 
union 
{ Token name ; 
struct rulerec *rule ; 
) attr ; 
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#include ) 








e ПППППП---бшВізоп-(П [] Free Software Foundation] ПП Coup 0000000000“ 000 











e П00000000000000000000000000 















































Chiba*pub.coM 

































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































BNF C 
( LALR(1) ) 
( ) 
Yacc 
3 #include 
/ 2 
Yacc 
0 9696 
Үасс С- 
Yacc 
exp > exp addop term | term 
а4аор-> + | - 
term — term тшор factor | factor 
mulop > * 
factor > ( exp ) | number 
4.1.2 
5-1 Yacc 
3 
5-1 1 Yacc 
#include 541 5) 
Үасс ( ) 2 МОМВЕВ 
ПППП 5-1 0000000000 Yacc) n 
%{ 


, #include <stdio.h> 
#include <ctype.h> 
%} 
%token NUMBER 


%% 


command : exp 1 printf("X*din",$1);) 
; /* allows printing of the result */ 


exp : exp '+' term 
| exp '-' term 


{$$ 
{$$ 
term ($$ = $1;) 


$1 + $3;) 
$1 - $3;) 


term : term '*' factor ($$ = $1 * $3;) 


factor ($$ = $1;) 











Chinaspuhcom ‚ 



























































factor : NUMBER ($$ = 61;) 
| '(' exp ')' ($$ = $2;) 

%% 

main() 

1 return yyparse(); 

) 


int yylex(void) 
t int c; 
while((c = getchar()) == ' '); 
/* eliminates blanks */ 
if ( isdigit(c) ) 4 
ungetc(c,stdin); 
scanf("*d",&yylval); 
return(NUMBER); 
} 
if (с == '\п') return 0; 
/* makes the parse stop */ 
return(c); 


void yyerror(char * s) 
{ fprintf(stderr,"%sgVn",s); 
) /* allows for printing of an error message */ 
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Yacc 
5-1 
31-11 * € ) Yacc[] 96 (Stoken) 
5-1 NUMBER Yacc 
Yacc 258 Yacc #define 






























































































































































#define NUMBER 258 




























































































Yacc Stoken NUMBER Yacc 




















































































































































































































































































































token NUMBER 18 


NUMBER 18 ( 258) 


de 















































5-1 exp[] term 




























































































factor| 



































command 






























































































































































command command 

















































































































$start command 


























command 





















































































































































(embedded action)( 





























































































































































































































Yacc 
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China=pubscom 














































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(pseudovariable) 
( ) Үасс 
(value stack) $ 
$$ 
$1[] $2[] $3 5-1 
ехр exp '+' term ( $$ = $1 + 53: | 
exp— exp + term exp exp term 
Yacc Yacc yylval 
yylval 
factor : NUMBER { $$ = $1;) 
$1 yylval[] NUMBER 
5-1 3 ( ) 3 1 main 
Yacc main yyparse 
уурагзе[] Yacc 
0 1( ) 
Үасс yyparse Lex 
yylex ( 21) 5-1 Үасс уу1ех 
yylex 
NUMBER 
yylval 
C ^ An Yacc 
yylex 0 Lex ) yyerror 
Yacc ( Yacc ~ 
" ) 
5.5.2 Yacc 
үу1ех| yyerror Yacc 
Yacc #include 
Yacc Yacc Yacc 
Yacc 
( ) ( ) 
Yacc 
y.tab.h|| ytab.h -d 
( heaDer ) 
calc.y 5-1 Yacc 
уасс -d calc.y 
( y.tab.c ) y.tab.h( ) 
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[UU —— ни 












































#ifndef YYSTYPE 
#define YYSTYPE int 






































































































































































































































































































































































































































































































































































































































































































































#endif 

#define NUMBER 258 

extern YYSTYPE yylval; 
( YYSTYPE ) 

#include y.tab.h 

yylex š 
Yacc (verbose option) -у 
y.output( ) 
LALR(1) Yacc 
П П Үасс [] Yacc 
5-2 Yacc[] 5-1[] Yacc Ц Ц 

Үасс 









































yacc -v calc.y 


ПППП 5-2 00 -\0 00 Yaeen 000 





%token NUMBER 





































































































































































































































































































































































































































































































%% 
command : exp 
exp : exp '+' term 

| exp '-' term 

| term 
term à term '*' factor 

| factor 
factor : NUMBER 

| '( exp ')' 

1 

5-3 y.output © 
Үасс DFA 0 
( ) 
goto Yacc 

e Үа«ПППППППППППППП (000 уу1уа10 OO 000 у. аь.ъ 000000000000 
























































00000000000 
e Bison) ПП0000000000000000000000000000000 
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China-pubecom 


























































































































































































































ПППП5-3 00000 5-10 0 асс 


state 0 


$accept : _command $end 


NUMBER shift 5 
( shift 6 
. error 


command goto 1 
exp goto 2 
term goto 3 


factor goto 4 
state 1 
$accept : command $end 


state 2 


command : 
exp : 
exp : 


$end: accept 
. error 


exp_ (1) 
exp_+ term 
exp_- term 


+ shift 7 
- shift 8 
‚ кейисе 1 


state 3 


exp : 
term : 


term. (4) 
term * factor 


* shift 9 


state 4 
t 


state 5 


factor : 


state 6 


factor : 


( 


reduce 4 


erm : factor. (6) 


reduce 6 


NUMBER (7) 


reduce 7 


(_exp ) 


shift 5 
shift 6 
еггок 




















0000000000000 y.catput 00 


exp goto 10 
term goto 3 
factor goto 4 


state 7 


exp : exp +_term 


NUMBER shift 5 
( shift 6 
. error 


term goto 11 
factor goto 4 


state 8 
exp : exp - term 


NUMBER shift 5 
( shift 6 
. error 


term goto 12 


factor goto 4 
state 9 
term : term * factor 
NUMBER shift 5 
( shift 6 


. error 


factor goto 13 
state 10 
exp : exp * term 
exp : exp - term 
factor :  ( exp.) 
ж Shift 7 
- shift 8 


state 11 
exp : 
term : 


exp + term. (2) 
term * factor 


* shift 9 
. reduce 2 








China=pubecom 


state 12 
exp : exp - term_ (3) 
term : term_* factor 
* shift 9 


. кейисе 3 


state 13 


8/127 terminals, 
9/300 grammar rules, 
0 shift/reduce, 
9/601 working sets used 
memory: states, etc. 36/2000, 
9/601 distinct lookahead sets 
6 extra closures 
18 shift entries, 
8 goto entries 


4 entries saved by goto default 
input 50/2000, 


Optimizer space used: 
218 table entries, 202 zero 
maximum spread: 257, 


1 exceptions 


maximum offset: 





4/600 nonterminals 
15/1000 states 
0 reduce/reduce conflicts reported 


43 





s 179 


(5) 



























































term : term * factor. 


. reduce 5 


state 14 


factor : ( exp )_ (8) 


. reduce 8 


parser 11/4000 


output 218/4000 

































































Yacc 
































0 DFA 




































































































































































Send 

















command' .command 






















































































Yacc 















































































































































Send 






















































































































































































NUMBER shift 5 
( shift 6 
error 
command goto 1 
exp goto 2 
term goto 3 
factor goto 4 





DFA 











NUMBER 












































































































































































































































































































































goto 






















































































































































































state 2 
command 


(1) 
exp_+ term 


exp. 
exp 
exp exp. - term 
+ shift 7 
- shift 8 


reduce 1 


































































































































































































































































































Yacc 
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1 command — exp reduce 1 
Үасс 8 
(соттапа ехрП 3 term factor ) 
+f] - 
Yacc LALR(1) ( SLR(1) ) 
ЭП Yacc 
( ) 
( 5.7 ) 
Yacc 
5-11 
П 5-11 00000 5-30 ҮассПППППППП 
0 0 0 Goto 
NUMBER ( + _ * ) $ command exp term Jactor 
0 s5 s6 1 2 3 4 
1 accept 
2 rl rl s7 s8 rl rl rl 
3 r4 r4 r4 r4 s9 r4 r4 
4 r6 r6 r6 r6 r6 r6 r6 
5 r7 r7 r7 r7 r7 r7 r7 
6 s5 s6 10 3 4 
7 55 56 11 4 
8 55 56 12 4 
9 85 86 13 
10 87 88 514 
11 r2 r2 r2 r2 s9 r2 r2 
12 r3 r3 r3 r3 s9 r3 r3 
13 r5 r5 r5 r5 r5 r5 r5 
14 r8 r8 r8 r8 r8 r8 r8 
5.5.3 Ц Ц 
Үасс y.output Yacc 
( 
y.output Yacc 
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3 
5-1 Yacc 
0 shift / reduce, 0 reduce / reduce conflicts reported 
5.12 else | 5-9 
SLR(1) 3 š ( 
Ж Yacc 
Yacc Yacc 
5-9 Yacc 5 y.output 
C ) 




































































































































































5: shift / reduce conflict 


state 5 
I 
I 


IF S, (3) 
IF S ELSE S 
ELSE shift 6 


reduce 3 


( shift б/п 139 on ELSE 






























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Yacc | - 
1 shift / reduce, 0 reduce / reduce conflicts reported 
- Yacc 
5.18 
8-А|В 
А-а 
В-за 
а S—A-—al|]J$2B-a 
5-4 y.output | 
Boa Ата 
ЭП Yacc 
Rule not reduced : В a 








0000 5-4 05.180 000 Үасс ü D D 





Rule not reduced: B 


state 


state 


0 


$accept : _S $end 


1 


shift 4 


error 


goto 
goto 
goto 


$accept 


1 
2 


8 Send 


a 










































































182 Chinaspub.coM 
iil 


$end accept 


. error 
state 2 
s: А. (1) 


. reduce 1 


state 3 
S: B. (2) 


. reduce 2 


4: reduce/reduce conflict (red'ns 3 and 4 ) on $end 


state 4 
A: a. (3) 
B: a. (4) 


. reduce 3 
Rule not reduced: в: а 


3/127 terminals, 3/600 nonterminals 
5/300 grammar rules, 5/1000 states 
0 shift/reduce, 1 reduce/reduce conflicts reported 















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Yacc 
5-5 Yacc 
$1eft '+' '-' 
$1eft '*' 
Yacc +] - 
* +0 - ( ) Yacc 
%right || ?6nonassoc ("nonassoc" Uu П 
) 
0000 5-5 О0000000000000000000000 0000 Үасс 0 


%{ 
#include <stdio.h> 
#include <ctype.h> 
%} 


%token NUMBER 


%left '+' '-' 
%left '*' 
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w 


%% 
command : exp 1 printf("%dxn",$1);) 
exp : NUMBER ($$ = $1;) 
| exp '+' exp {$$ = $1 + $3;) 
| exp '-' exp {$$ = $1 - $3;) 
| exp '*' exp ($$ = $1 * $3;) 
| 'С exp ')' ($$ = $2;) 
%% 


/* auxiliary procedure declarations ав in Figure 5.10 */ 








5.5.4 Yacc 














































































































y.output Yacc 









































































































































YYDEBUG y.tab.c( —DYYDEBUG ) 
































































































































Yacc yydebug 1 2+3 









































































































































5-1[] main 





extern int yydebug; 
yydebug = 1; 





5-6 5-11 





































































































































































































































































































0000 5-6 00000 2+300 0 yydebugD 00000 5-11 ПП Yaeet (000000 





Starting parse 

Entering state 0 

Input: 2+3 

Next token is NUMBER 

Shifting token NUMBER, Entering state 5 
Reducing via rule 7, NUMBER -» factor 
state stack now 0 

Entering state 4 

Reducing via rule 6, factor -» term 
State stack now 0 

Entering state 3 

Next token is '+' 

Reducing via rule 4, term -» exp 
state stack now 0 

Entering state 2 

Next token is '+' 

Shifting token '-', Entering state 7 
Next token is NUMBER 

Shifting token NUMBER, Entering state 5 
Reducing via rule 7, NUMBER -» factor 
state stack now 0 2 7 

Entering state 4 

Reducing via rule 6, factor -» term 





184 


state stack now 0 2 7 
Entering state 11 
Now at end of input. 















































China*puf.cot 






























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































Reducing via rule 2, exp '*' term -» exp 
state stack now O0 
Entering state 2 
Now at end of input. 
Reducing via rule 1, exp -» command 
5 | 
state stack now 0 
Entering state 1 
Now at end of input. 
5.5.5 Үасо| 
5-1 Yacc 
$$ = $1 + $B ( xp 
— exp + term 1 3) Yacc 
Yacc C 
YYSTYPE[| Yacc Yacc 
Yacc %{...%} 
#define YYSTYPE double 
exp — exp addop term | term 
addop > +|- 
( 5-1 exp 
) addop ( ) exp ( double) 
YYSTYPE double|| char 
Yacc Үасс | $union 
$union ( double val; 
char op; ) 
Yacc Stype 
$type «val» exp term factor 
$type «ор» addop mulop 
Yacc[] $type 5-1 
Yacc ( ) 






































































































































Stoken NUMBER 


$union ( double val; 


char ор; ) 


$type «val» exp term factor NUMBER 


$type «ор» addop mulop 
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ШШ —— —————————— — —— 




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































%% 
comand : exp { printf ( " S$d\n " , $1 ) ; ) 
exp : exp op term ( swithc ( $2 ) { 
case '+': $$ = $1 + $3; break; 
case '-': $$ = $1 - $3; break; 
) 
| term ( $$ = $1; ) 
op "ы! ( $$ '+'; } 
| '-'( $$ '-'; ) 
2 Ц ПП (ul Ц ) Ц 
ҮҮЗТҮРЕП [| U 00000 00000 О 0000 
TINY 
5.5.6 Yacc) 
| ПІ | ПІ 
decl — typevar-list 
type — int | float 
var-list > var-list , id | id 
Ц var-list ПППППС 000) Hu ШИГ 
Yacc[] | 
dec1 : Жүре ( current type = 51 ; ) 
var, list 
type : INT ( $$ = INT TYPE ; ) 
| FLOAT { $$ = FLOAT TYPE ; } 
var list : var, list ';' ID 
1 setType (tokenString, current журе);) 
| їр 
( setType (tokenString, current type);) 
decl HUUUU ПП | current, type[] 
О ПП О О 
Уасс 





А : В { /* embedded action */ } с; 




































































































































































| | Lr LEES LEES DE EE HE ES e- 















































A: ВЕС; 
E : ( /* embedded action */ } ; 
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TET 
























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































| 5-12 Үасс | | 
П 5-12 ҮассППППППППП 
Yaec 0000 ППППГ 
y.tab.c Yacc) 00000 
y.tab.h Yacc) 0000000000000 
yyparse Yacc) ППП 
yylval ПППППППП 
yyerror [] Уасс0 (0000000000000 
еггог Үасс 111 000 
yyerrok 00000000000000 
уусһаг 00000000000 
УУЗТУРЕ 0П000000000000000 
yydebug 0000000000 100000000000000000 
Yacc) OOOO 00000 
stoken 0000000000 
Sstart 0000000000 
$union ППП үүвтүРЕ 0 ü 0000000000000 
stype ПППППППППППП 
$1eft %right %nonassoc 000000000000 000) 
5.6 ПП Yacc] [] TINYO OOO 
TINY | 3.7 | 4.4 | П П | Ц 
Үасс tiny.y globals.h ( 
ПШШШПШППП LU uti ) tiny.y НОО 
П ВП [] 40000 [] O 41620 
TINY[] Үасс YYPARSER([] 4007[] ) 
Yacc АП #include (Ц 4009 [] 4012[] ) П 
4 10 (0 4014[] )[] ҮҮЗТҮРЕ Үасс 
(TreeNode globals.h[|) Yacc 
2l] savedName П П 
Ц | (П ТІМҮ Ц 
ПП) savedLineNo | | | 
savedTree yyparse (yyparse 
) 
TINY | ( 3 3-1 
ВМЕПППП) i | 
util newStmtNode| | newExpNode ( 
4.4 ) TINY 
write stmt([| 4082ff[] JJ [] D] D] 0 0 000 
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Ола Сом 


















































WRITE exp 
{ $$ = newStmtNode (WriteK); 


$$ —>child [0] = $2; 


write_stmt 


, 






















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































1 newStmtNode write_stmt exp (Yacc $2 
) Write 1 

program|| stmt_seq|| assign_stmt 

program (П 4029[] ) 
{savedTree = $1;) 
stmt_seq savedTree parse 

assign_stmt 
( ) 

savedName|| saveLineNO (1 4067[] ) 

assign stmt ID ( savedName - copyString ( tokenString ) ; 
savedLineNo - lineno ; ) 


ASSIGN exp 


( $$ = ( AssignK ); 


newStmtNode 
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СП Pascal 
LISP 
LISP 
° | 
( 3+4*5) ( 
(constant folding)) 
FORTRAN77 LISP С 
Равса! 
(07 ) 
7 
( 6.2.5 
) 8 
6.1.1 
(syntax-directed semantics) ( 
)© a [] X а 
X.a Pascal ( )C 
( ) 
а,,...,а, Х-Х,Х,... Хп 
Х, x ) x Х..а, 
Х, 
(attribute equation) 
(semantics rule) © 
X.a = f. (Хуа, Хад Х,а,.... X.a,,..., X а,..., Х.а,) 
f а,,..., 4, (attribute grammar) 
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e О000000000000000000 Gemantics-directed syntx)] n O0 0000000000000 


0000000 00200000 
e 0000000000000000 








[zl 




































































ППППППППППППППППППППЇППП 


= 












































China=pubecom р 201 
ШШ — 




















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































о 
0000 0000 
001 0000000 
lun 0000000 
6.1 
number > number digit | digit 
аей-0111213|14|151617|819 
П уа! | | | 
digit> 0 digit 0 
digit.val = 0 digit— 0 
number — digit 
number.val = digit.val 
1 
number — number digit 
number | 0 number number| 
number, >> number, digit 
34[] (00) number => number digit = digit digit = 3 
digit — 34 number — number, digit 
number, 3[| digit 4 3[] 4 number, 
( 34) number, 10 digit 34 = 3*10+4 3 
4 
number .val = number,.val * 10 + digit.val 
val 6-1 
6-1 
345 
e ПППО0О000“ 0000” 00 “0000 ”0000000000000000000 























































































































202 China=pubcom 
————————— Ita 































































































































































































































































































































































































Ц ШИГ О0000000000 о Uu utt Пп 2 2 ЇЇ ЭД 
006-100 6-10 1000 0000000 
0000 digit— 0 0 digit.val = O[] [| 
== === пп on 
0 6-1 06100000 
0000 0000 
Number, > number, digit number .val = number,.val * 10 + digit.val 
Number digit number.val = digit.val 
digit 0 digit.val = 0 
digit — 1 digit.val = 1 
digit э 2 digit.val = 2 
digit > 3 digit.val = 3 
digit > 4 digit.val 24 
digit > 5 digit.val = 5 
digit > 6 digit.val = 6 
digit — 7 digit.val =7 
digit > 8 digit.val = 8 
digit > 9 digit.val = 9 
number 
(val = 34 * ]0 + 5 = 345) 
number digit 
(val = 3 * 10 + 4 = 34) (val = 5) 
number digit 5 
(val = 3) (val = 4) 
4 
digit 
(val = 3) 
3 
0 6-1 000 6.1000000000 
0 6.2 000000 ПШШШПШПП 


exp > exp + term | exp — term | term 
term — term * factor | factor 


factor > (exp) number 


uguusuluuutuituiulitutulituulttutllu exp termi factor)[] O OU 
ПП 00000 уа va t tu 000 0 0 620001 































































































e П0П00000000000000000000000000000000000000000000 
0000000 









































СМпачрифсоћ 


П 6-2 06200000 

















0000 0000 


203 





exp, > exp, + term exp „val = exp „val + term.val 


exp, > exp, — term exp „val = exp,.val - term.val 


exp > term exp.val = term.val 


term, > term, * factor term,.val = term,.val * factor.val 


term factor term.val = factor.val 


factor (exp) factor.val = exp.val 


factor > number factor.val = number.val 



































































































































































































































exp > exp, + term 














































































































































































































































































































































































































































































































































































































































































































































































































*qiu 
exp „val = exp,.val  term.val 
[] T O number-val[] [] o 
( ) 
number.val П | Ц | 
( 6.1 ) 
[] 6.1 | Ц Ц Ц 
(34-3) *42 6-2[ | 








ехр 
(val = 1302) 


term 
(val = 31 * 42 = 1302) 


mo sd 


term Ы factor 
(val 2 31) (val = 42) 
| | 
factor number 
(val 2 31) (val = 42) 
ж 17% 


( ехр ) 
(val = 34 — 3 = 31) 


nd n 


exp term 
(val = 34) (val = 3) 
| | 
тетт factor 
(val = 34) (val = 3) 
| | 
factor number 
(val = 34) (val = 3) 
| 
number 
(val = 34) 


0 6-2 (34-3)*42 ПППППППП 620 00000 wl Odd 


























204 

































































































































































Chinaepub.com 


































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































6.3 С 10] | | 
decl — type var -list 
type > int | float 
var-list => id, var-list | id 
П 0 П ауре 0 ( 
dtype[] П type ЭД dtype[] П ППО 6-3 П 
[integer , теаї O U U U ауре int[| float type 
йгуре[] аес! dtype var-list 
dtype var-list id dtype 
decl |] dtype decl dtype | [] 
6-3 
0 6-3 06300000 
ПППП ПППП 
decl — type var-list var-list.dtype = type.dtype 
type 2 int type.dtype = integer 
type 2 float type.dtype = real 
var-list, > id,var-list, id.dtype = var-list,.dtype 
var-list,.dtype = var-list,.dtype 
var-list > id id.dtype = var-list.dtype 
decl 
ae M li 
type var-list 
(dtype = real) (йуре = real) 
| i m 
float id ! var-list 
(x) (dtype = real) 
(йуре = real) | 
за 
(у) 
(йуре = real) 


0 6-3 D D D floatxyOOOOOOU00 6-30 0000000 dtypel] D 










































































































































































































































































































































































based-num > num basechar 


Баяесїаг-» о|а 


пит — пит digit | digit 
digit > 0|1|2|3|4|5|6|7|8)|9 


АЛТҰТ АХАУ 





| б 
































205 






































641 ЇГ 














| O O O пит авй (0000000 баас [| 











06-4 06400000 


0000 


0000 


ПП тай] base 





























| уа | 








based-num > 

num basechar 
basechar > о 
basechar> a 


num num, digit 
1 2 


num > digit 


Based-num.val = num.val 


num.base = basechar.base 


basechar.base = 8 
basechar.base = 10 


пит уа! = 


if digit.val = error ог пит, уа! = error 


then error 


else num,.val * num,.base + digit.val 


num,.base = num,.base 
digit.base = num,.base 
num.val = digit.val 


digit.base = num.base 

































































































































































digit — 0 digit.val = 0 
digit 21 digit.val = 1 
digit > 7 digit.val = 7 
digit > 8 digit.val = 
if digit.base = 8 then error else 8 
digit 2 9 digit.val = 
if digit.base = 8 then error else 9 
ПППППГППШГГ  ШГ 0 BNF Uu eb ull 
ООО 0000 00 80 9000000000000 BNF П 18900000 
based-num 
(val = 229) 
— Бие” 
пит basechar 
(val = 28 * 8 + 5 = 229) (base = 8) 
(base = 8) 
— —_ 
пит digit 
(val = 3 * 8 + 4 = 28) (val = 5) 
(base = 8) (base = 8) 
пит digit 5 
(val = 3) (val = 4) 
(base = 8) (base = 8) 
digit 4 
(val = 3) 
(base = 8) 
3 


0 6-4 064000000000 
























































206 (Улэгри 0% 
— A 





























error 



























































































































































° 81| 9 error 



























































































































































if-then-else 














num,.val = 


if digit.val = error or num,.val = error 


then error 


else num,.val * пит „Базе + digit.val 


















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































пит, num, digit num,.val|] digit.val|] error num,.val 
error | пит „val пит „уа! * пит „Базе + digit.val 
6-4 345о 
6-4 
6.1.2 
if-then-else 
(metalanguage) 
if-then-else case[] switch 
digit 
digit digit >D ( D ) 
digit.val = numval (D) 
numval C 
numval 












































int numval ( char D) 


1 return (int)D-(int)'0';) 





































































































































































































6.2 





















































exp > exp + exp | exp - exp | exp ж exp | ( exp ) | number 
val 6-5 6-2 ) 












































































































































06-5 0000000000000 vall 0 




















ПППП ПППП 
exp, > exp, + exp, exp,.val = exp,.val + exp,.val 
exp, > exp, — exp, exp val = exp,.val - exp „val 
exp, > exp, * exp, exp „val = exp,.val * exp,.val 
exp, > (exp,) exp,.val = exp,.val 


exp > number exp.val = number.val 












































Chinaspubscom 207 
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(34-3) х42 val 





























































































































6-2 6-50 П 
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(val = 31 * 42 = 1302) 


(val = 34 — 3 = 31) (val = 42) 


34 
(val = 34) (val = 3) 


06-5 (84-3) 42 0000000000 620065000000 20000 
























































































































































































































































































































































































































































































































































































































































































































































































































































6.5 6.2 6-6 
mkOpNode|] mkNumNode|] mkOpNode 
3 ( ) 1 
2 3 mkNumNode ( ) 
6-6 number.lexval|] [] 
( 6-6 
B[] TINY ) 
066 00000000000000000000 














0000 0000 





exp, > ехр, + term exp,.tree = 
mkOpNode (+, exp,.tree, term. tree) 


exp, > exp, — term exp „tree = 
mkOpNode (-, exp,.tree,term. tree) 


exp > term exp.tree = term.tree 


term, > term, * factor term „tree = 
mkOpNode (* , term „tree factor .tree) 


term — factor term.tree = factor. tree 
factor > (exp ) factor.tree = exP. tree 
factor > number factor.tree = 


mkNumNode (number.lexval) 




















































































































































































































































































































62 000000 
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С/дагрифл 0 


































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































f; (X, а, ‚Ха, Х,а,, X а, Х, а, ‚Х,.а,) 
Х.а 
jj 
6.2.1 aU 
(associated dependency graph) 
X.a 
Pj 
X.a, =/,\ ees X od...) 
X a, X.a, ( ха, X a, ) 
(dependency 
graph) ( ) 
Х 
6.6 6-1 val 
val number, > number,.digit 
number .val = number val * 10 + digit.val 
number,.val 
number».val digit.val 
( 









































































































































































































































































































































number.val = digit.val number digit 

















number.val 
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digit.val 
digit D ІП digit.val [] | | 
( ) 
( 6-1) 345 
number.val 
number.val digit.val 
number.val digit.val 


digit.val 





209 


var- 
































China-pub.com 


6-3 | | 



































































































































dtype 


























6.7 6.3[] [] 


list, > id , var-list, [] 




























































































id dtype = var-list,.dtype 
var-list,.dtype = var-list, .dtype 
































var-list.dtype 


id.dtype var-list.dtype 
































Ц var-list > idl] [] 















































var-list.dtype 


id.dtype 














type > int 









































type > float [| 



























































var-list.dtype = type.dtype| 















































type.dtype —— 


















































decl type var-list 


var-list.dtype 


















































































































































































































































































































































































































































































































































































































































decl П 
( ) 
decl _ 
іуре dtype — уре var-list 
Фуре  var-list 
2 | | T 
dtype id , dtype var-list 
0000 float х,у | 
дес! 


type dtype — dtype ` var-list 


1 » - ж-е - Жы = - 
І 2 ~~ 
1 27 ! ` 
float dtype id , Фуре var-list 
(x) | | 
І 
І 
dtype 
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Chinaspub.com 

























































































































































































































































































































































































































































































































































































































































































































































































































































































6.8 П 6.40 | ІП Баз vall] 000000 6-4 | 4100 
based-num — пит Базесйаг 
пит > num digit 
пит — digit 
digit > 9 
П 3450] ПП 6-40 [| 
based-num — num basechar| 
based-num уа! 
2-3 `x 
base fiüm val basechar base 
ДП based-num.val = пит.уа[ num.base = basechar.base 
пит num digit 11111 
base num уа! 
k 
^. 
„7 “. 
base пит val base digit val 
| 30 П 
num,.val = 
if digit.val = error or num,.val = error 
then error 
else num,.val * num,.base + digit.val 
num,.base = num,.base 
digit.base = num,.base 
num — digit| | 
base пит уа! 
| 
| 
| 
I 
base digit уй 
digit > 91 0 
base digit val 
I 
ыл” 
i 
9 
ПО ППП digit.val = if digit.base = 8 then error else 9 | 0 Ц фги.уа | 
digit.base([] [] if П ІП) | П | 345о[ П 6-6 | 



















































































































































































China=pubcom 












































S 

Р гад ~ % ! 
а “а 1 
base num val base digit val 5 

1 [ 

| I 1 

1 1 

Базе digit val 4 


0 6-6 000 за 0000 (П 68) 































































































































































































(topological sort) 

























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(acyclic) 
(directed acyclic graphs[] DAGs) 
6.9 []6-6 DAG 6-7 ( 
) 
126912113 84 5 7 10 13 14 
val 
Q base 49 val 0) Базе 
(3) base (10) уа! (1) Базе (2) уа! 
(4) Т (7 уа! (8) base @ val 
@ base @ val 
0 6-7 000 450000 0 6.9) 
( ) 
6-7 10 60 90 12 Ө 
6-7 6[] уа! 3 va 
digit (00 6-6) 6 3 
o ПП000000000000000000 



































212 


















































Chiba*pub.to 























































































































(parse tree method) 


(noncircular) 

























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































( “ ” ) 
( ) 
( ) 
(rule-based 
method) 
(strongly 
noncircular) 
6.10 6.8 6.9 6-7) 6-7 
60 91 120 DAG 
8[] 9 val digit 
base digit > 9 
base digit val 

| 

| 

| 

9 

6-7 6 3 9 12 
11 
12( 6.9) 6-7 
6.2.2 
(synthesized) 
a A2XX...X, 
a 
A.a — f (X..a, Х,а, X, a Х.а,) 
5 (S-attributed grammar) 
S 6.1 val ( 





























































































































































































































Слаграхс0м 











| 213 













































































































































































































































































































































































































































































































































































6 
6.64 [1L] D] D 16211 ПОООО 0 vat П lU 
П ПП П $0 001 
| i || 
procedure PostEval (Т: treenode); 
begin 
for each child C of T do 
PostEval (C); 
compute all synthesized attributes of T; 
end; 
16411 DUI val [ОП 6.2 IOLDI 000010 000 6-5) 
000 
typedef enum { Plus, Minus, Times ) OpKind; 
typedef enum (| OpKind, ConstKind } ExpKind; 
typedef struct streenode 
( ExpKind kind; 
OpKind op; 
struct streenode *lchild, *rchild; 
int val; 
) STreeNode; 
typedef STreeNode *SyntaxTree; 
PostEval[] [] | 6-1 СППППП ППП 
































0000 6-1 061100000000 ©0000 





void postEval(SyntaxTree t) 
{ int temp; 
if (t->kind = OpKind) 
1 postEval (t->lchild) ; 
postEval(t-»rchild); 
switch (t-»op) 
1 case Plus: 
t->val = t-»lchild-»val + t-»rchild-»val; 
break; 
case Minus: 
t->val = t-»lchild-»val - t-»rchild-»val; 
break; 
case Minus: 
t->val = t-»lchild-»val * t-»rchild-»val; 
break; 
) /* end switch */ 
) /* end if */ 
) /* end postEval */ 




















































































































(Gnherited)[] ПП 
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6.3 dtype 6.4 base 
( ) 6-8 
al b 6.7] 0 dtype Lu 
( 
200 100 ІП 
6-8с 
аА А 
INN ZN 
жа NI p “эс 
Sa à. 27 < 
ав ас aB ac 
a) b) 
A 
с) 
0 6-8 0000000060 
2000000000 590000000 9000000000000 
| | | ul | 
procedure PreEval (T: treenode); 
begin 
for each child C of T do 
compute all inherited attributes of С; 
PreEval ( С); 
end; 
Ц Ц р | Ц Ц О | 
T C 
dtype|] base 
6.12 6.3 dtype 6.7 ( 6-3 ) 


























































































































































































































































































































decl — type var-list 


type > int | float 


var-list > id, var-list | id 






































































































































dtype 








procedure EvalType (T: treenode); 


China-puj.cow | 












































begin 
case nodekind of T of 
decl : 
EvalType (type child of T ); 
Assign dtype of type child of T to var-list child of T; 
EvalType (var-list child of Т); 
type : 
if child of T= int then T.dtype := integer 
else T.dtype :- real; 
var-list : 
assign T.dtype to first child of T; 
if third child of T is not nil then 
assign T.dtype to third child; 
EvalType (third child of T ); 
end case: 
end EvalType; 


215 













































































































































































































































































































































































































































































































































































































































































































































































































































































































































































ППППП 00000 П аес 
EvalType 1 dtype 2 
Li var-list П dtype 
6-9 | dtype float x,y UU 
dtype 
Р” decl _ 
(D ре Фуре = dtype var-list @ 
! 22% | `< 
| — м кыа 
float dtype id (9 ; dtype — var-list a» 
(x) | 
dtype 14 (5) 
(у) 
0 6-9 ППП 6.120 0000000 
С 
var-list[] 14 
float х,у ( 6-9 ) 
а аес! 
туре 14 14 
(dtype = real) (ж) (у) 
деси П П П (П П туре П хП П wu 


















































































































































































































































216 China=pubcom 
=== üa 







































































































































































































































































ПП П dtypel] П Ц ppe ППППППППШПППППППП 
ПП ІП С0000000 
typedef enum ( decl, type, id ) nodekind; 
typedef enum ( integer, real ) typekind; 
typedef struct treeNode 
( nodekind kind; 
struct tree 
*lchild, *rchild, *sibling; 
typekind dtype; 
/* for type and id nodes */ 
char * name; 
/* for id nodes only */ 
} * SyntaxTree; 
000 EvalTypel] D П CU U D D L 
void evalType(SyntaxTree t) 
1 switch (t-»kind) 
( case decl: 
t->rchild->dtype = t->lchild->dtype; 
evalType (t-—>rchild) ; 
break; 
case id: 
if (t->sibling != NULL); 
{ t->sibling->dtype = t->dtype; 
evalType (t->sibling) ; 
} 
break; 
} /* end switch */ 
} /* end evalType */ 
ПИ ГГГЦГГ! П (decl)TUOUUUU 
void evalType (SyntaxTree t) 
{ if (t->kind == decl) 
1 SyntaxTree р = t-»rchild; 
p->dtype = t->lchild->dtype; 
while (p->sibling != NULL) 
{ p->sibling->dtype = p->dtype; 
p = p->sibling; 
} 
} /* end if */ 
} /* end evalType */ 
16.13 ПОП 6.40 000000 П base (ПП 6.88 000000000000 



















































































IU ПП 








based-num — пит basechar 
basechar > o|d 
num num digit | digit 


ЭВГДӨЇАр 0 


Chinaepuh.coM 









































|ПППШП 





уа П vall] | 





























100 








Базе | 1111 П based-num ДП o 














ППППППС 

























































































basechar] num) 


ПП base 














000 

















[] based-num|[] [] J OU | 






















































































Базе уа ПП 














П 0 О base 























ГА 























000 




















































































































( | ) 

























































































0064 















































procedure EvalWithBase (T: treenode); 
Беріп 
case nodekind of T of 
based-num: 
EvalWithBase ( right child of T ); 


assign base of right child of T to base of left child; 


EvalWithBase ( left child of T ); 
assign val of left child of T to T.val; 


пит: 


assign T.base to base of left child of T; 


EvalWithBase ( left child of T ); 
if right child of T is not nil then 


assign T Базе to base of right child of T; 


EvalWithBase ( right child of T ); 


if vals of left and right childrens error then 
T.val := T.base* ( val of left child ) + val of right child; 


else T.val := error; 
else T.val := val of left child; 
basechar: 
if child of T = o then T.base := 8 
else T:base := 10; 
digit: 


if T.base := 8 and child of T = 8 or 9 then T.val : = error 


else T.val : = numval ( child of T ); 
end case; 
end EvalWithBase; 


ПП C 






































EvalWithBase | 








OOU C 























ІП 





























ППППППППГ ( 


















































































































































































































































































































































procedure CombinedEval ( T : treenode ); 
begin 
for each child C of T do 


compute all inherited attributes of C; 




















PostEval 




















PreEval |] 
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CombinedEval ( С); 
compute all synthesized attributes of T; 


China=pubscom 
































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































end; 
6.14 
exp 2 exp / exp | num| num. num 
—— / 
пит пит. пит 
йу 5/4 5div4z1 
5/4 1.2 
5/2/2.0( 1.250 П 5/2/2 1° 
3 isFloat 
etype int |] float 
isFloat val etype 
( ) 
S exp 
6-7 exp > num Float ( num.val ) 
num.val "of" " div" 
isFloat[] etype|] val 
isFloat etype 
val 
С 
П 6-7 0 6.140 0000 
0000 0000 
S > exp exp.etype = if exp.isFloat then float else int 


S.val 2 exp.val 





exp, 2 exp, / exp, 


exp,.isFloat = exp,.isFloat or exp,.isFloat 


exp,.etype = exp .etype 


exp,.etype = exp,.etype 


exp,.val = 


if exp,.etype = int 


then exp,.val div exp,.val 


else exp,.val / exp,.val 








e ПППППСППППППППППО ППП <0000 5/2/2.00 ПП 1.00000 1.250 

















Chinaspubeom 
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6 
000 
0000 0000 
exp 2 пит exp.isFloat = false 


exp.val = 


if exp.etype = int then num.val 


else Float (num.val) 





exp > num. num exp.isFloat = true 


exp.val = num. num.val 































































































































































































































































































































































































































































































































































































































































































































































































5.2.3 ШЦ Ц 
6.15 6.13 EvalWithBase base 
val val 
base ( ) val 
EvalWithBase 









































function EvalWithBase (Т: treenode; base: integer ): integer; 


var temp, temp2 : integers 
begin 
case nodekind of T of 
based-num : 
temp := EvalWithBase ( right child of T ); 
retutn EvalWithBase ( left child of T, temp ); 
пит: 
temp := EvalWithBase ( left child of T, base ); 
if right child of T is not nil then 
temp2 :- EvalWithBase ( right child of T, base ); 
if temp error and temp2 error then 
return base*temp + temp2 
else return error; 
else return temp; 


















































220 Chinaspub.com 
__ TH 


basechar: 
if child of T = o then return 8 
else return 10; 
digit: 
if base = 8 and child of T = 8 or 9 then return error 
else return numval (child of T ); 


















































































































































































































































end case; 
end EvalWithBase; 

П0000000 base] 00 val П integer OOOO Hi 
EvalWithBase|] (| Базе] JT XH E] 111111 11011 баяеслагй UOU B HE UB E] E] E] О EvalWithBase 
vall] OO 10 EvalWithBase|] 111111111:11 11 1 0 00 Рраѕе-пит ПОП 
ПООООВО ООО ООО ООООВОООО0О0ОО0ОО0 Бе  1100000000000100 










































































EvalWithBase (rootnode[] 001 


0| 30 [] [] [] base_num[] basechar|] гей DOH O00 300000 3 
ПП 1000 








= 























































































































function EvalBasedNum (T: treenode ) : integer; 
(*only called on root node*) 
begin 
return EvalNum ( left child of T, EvalBase (right child of T) ); 
end EvalBasedNum; 


function EvalBase ( T: treenode ): integer; 
(*only called on basechar node*) 
begin 
if child of T = o then return 8 
else return 10; 
end EvalBase; 


function EvalNum ( T: treenode; base: integer ): integer; 
var temp, temp2 : integer; 
begin 
case nodekind of T of 
пит: 
temp := EvalWithBase ( left child of T, base ); 
if right child of T is not nil then 
temp2 := EvalWithBase ( right child of T, base ); 
if temp# error and temp2# error then 
return base*temp + temp2 
else return error; 
else return temp; 


Chiha-pub.coM 





2 | 221 






































digit: 
if base = 8 and child of T = 8 or 9 then return error 
else return numval ( child of T ); 

































































































































































































































































































































































































































































































































































































































































































































































































































































end case; 
end EvalNum; 
6.2.4 | 1000 
BOTE A Р ( E 
) | 
( ) 

[] 6.16 | EvalWithBase П 

( base Ц ) Ц 
EvalWithBase П 



































function EvalWithBase (T: treenode ) : integer; 
var temp , temp2: integer; 
begin 
case nodekind of T of 
based-num : 
SetBase (right child of T ); 
retutn EvalWithBase ( left child of T ); 
пит: 
temp : = EvalWithBase ( left child of T ); 
if right child of T is not nil then 
temp2 : = EvalWithBase ( right child of T ); 
if temp error and temp2# error then 
return base*temp + temp2 
else return error; 
else return temp; 
digit: 
if base =8 and child of T = 8 or 9 then return error 
else return numval ( child of T ); 
end case; 
end EvalWithBase; 


procedure SetBase (T: treenode ); 
begin 
if child of T = o then base := 8 





222 















































else base:= 10; 
end SetBase; 


Chinaepuh.coM 



































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































base SetBase basechar 
EvalWithBase base 
base 
base 
ПППП ПППП 
based-num > 
num basechar based-num.val = num.val 
basechar > о base : = 8 
basechar > d base := 10 
num, num, digit num,.val = 
if digit.val = error or num,.val = error 
then error 
else num,.val *.base + digit.val 
etc. etc. 
base 
base 
base-num 
(symbol table) 
insert|] lookup|] delete 
| 
6.17 6-3 6.12 
insert 
procedure insert (name : string ; dtype : typekind); 
dtype 
ПППП ПППП 




















decl 2 type var-list 

type 2 int 

type > float 

var-list, > id, var-list, 


var-list > id 











insert| 






























































id.name 


dtype — integer 
dtype = real 


insert ( іа.пате dtype ) 


Li Е2 


insert ( id.name|] dtype ) 






































































































































ШТАТ 5 
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decl 

































































insert 



































type dtype 






























































































































































list type 





























































































































| EvalType 













































































procedure EvalType ( T: treenode ); 
begin 
case nodekind of T of 
decl: 
EvalType ( type child of T ); 


EvalType ( var-list child of T ) 


type: 


if child of = int then dtype : = integer; 


else dtype : = real; 
var-list : 
insert ( name of first child of T 











dtype ) 





if third child of T is not nil then 
EvalType ( third child of T ); 


end case; 
end EvalType; 





6.2.5 
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“ ” ( 













































































based-num о а 
































































































































































































































































































































































































































L- (L-attributed) 




















































































































X >X X,... X 














































































































ӨЛТЕТ 5 




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































X.a =f; (Ха,....»Х,а,ЦШХ,ла,,....Х,а, Х Р X, ,.a,) 
Х а, x x 2 Xa 
5- Ї- 
L- 
LR Үасс LALR(1) 
LR LL 
LR 
Үасс 
1) LR LR LR 
) 
6- 
8 6-5 
LR 
( 
) 
6-8 10 1 5 + 5 
E> E+E 6-5 E val = 
E val + Е „у ( ) 
pop t3 { E,.val} 
pop { + ) 
pop t2 í E,.val} 
tl = 12+ (3 {0} 
push t1 { } 
Үасс 10 
Е ПЕ+Е { $$ = 51 + [$3 
$1 
E[] $3 $1 
06-8 IJ LRO00000 34500000000 
ПП 0 П П 0000 П П 0000 
1 $ 3*4+5 $ ПП 5 
2 $n *4+5 $ ППЕ-п ӛп E.val = n .val 
3 $Е *4+5 $ ПП 53 
4 $E* 4-5 $ ПП $3* 
5 $Е* п +5 5 ПО E n $3*n E.val 2 n .val 














China=pub.com 
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000 
000 0 0 0000 Oo 0 0000 
6 $Е*Е +5 $ ППЕ>Е*Е $3 *4 E,.val = E,.val * E,.val 
7 $Е +5 $ ПП $12 
8 $Е+ 5 $ ПП $12+ 
9 $Е+п $ ППЕ-п $12+п E.val =n уа! 
10 $Е+Е $ HOE? E+E $1245 E,.val = E,.val + E,.val 
11 $E $ $17 
2) LR LR 
П П АЭВС C | ІППП 
ВП C.i = f (B.s) 5 ВЇЇС £- 
C C.i 
0000 0000 
А > BCD 
Во... (0085) 
Рә e saved_i = f (valstack[top]) 
C2... (00 savea #0000) 
Уасс ПП е | 
АПВ ( saved i = £($1); ) C ; 
( $1 B JI] Yacc АП 5.5.6 
[] [] [] dtype 
L- 
0000 0000 
decl > type var-list var-list.dtype = type.dtype 
type 2 int type.dtype — integer 
type > float type.dtype = real 
var-list, ^ var-list, , id insert (id. пате var-list .dtype) 
var-list,.dtype = var-list,.dtype 
var-list > id insert (id. name.var-list.dtype) 
10 var-list dtype type 
var-list 
dtype var-list > id dtype var-list, > var-list, , id 
dtype 3 dtype 
LR 
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0000 












































China-pubecom 











0000 





decl > type var-list 


type 2 int 


type > float 


var-list, > var-list, „за 























type.dtype = integer 
type.dtype = real 














































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































insert (іа. пате[] valstack[top- 31) 
var-list > id insert (іа. name|] valstack[top- 11) 
( var-list dtype 
) 
Yacc 
Yacc 2 
var-list ( 6.17 ) 14 йгуре 
LR 
£- ( Yacc ) 
dtype | Үасс 
(0 5.5.6[] ) 
Е- 
КП LALR(1) LR(A) ( 6.15 D 
6.2.6 
(Knuth [1968]) 
6.18 

decl — type var-list 
type 2 int|float 
var-list > id, var-list | id 

6-3 dtype 



























































































































































decl > var-list id 
var-list  var-list id, | type 


type > int | float 





China=pubecom 
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dtype 





























0000 








0000 





decl > var-list id 


var-list, > var -list, іа, 


var-list => type 
type > int 


type > float 


id .dtype = var-list.dtype 
id.dtype = var-list .dtype 
var-list, .dtype = var-list, .dtype 
var-list.dtype = type.dtype 
type. dtype = integer 
type.dtype = real 






































































































































































































































































































































































































































































































































6-10 dtype 
float x,y id.dtype 
( ) 
decl 
var-list Фуре = real id ауре = real 
шит ~~ (2 (у) J 
27 21 
шет т-.7-. 2 
2” | B шш DE ын 
-47 Y Br 

var-list dtype = real id  dtype — real ! 

| (z) 

| | 
type dtype = real 

| 

1 
float 


0 6-10 000 float ху) 0000000 61800000000 dtype 0 D 














































































































































































































































































































































































































63 ППП 

























































































































































































(C 



































































































































(O Ааа Pascal) 






































TINY 
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© 
( 
) 
6.3.1 
3 
( AVL B[] ) 
(hash[] ) 3 
( ) 
3 
x (bucket)” 0 
1 (hash fuction) ( ) 
(collision)( 
) 
( 
) 
( (collision resolution)) 
( (open addressing)) 
(separate 
chaining) “ ” “ ” 
6-11 54 
) 4 (АП 30 size[] temp) $12е|] j 
e ППППППППППППППППППППППППППППППППППППППППППППП 
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type RealArray = array [1..10] of real; 
Pascal 
const greeting = "Hello!"; 
Pascal greeting array [1..6] of chak 
a [ i ] 
а|| i a array [1..10] of real i 
integer a[i] real (i 1 
10 (range checking) ) 
6.4.1 
int[| double (predefined) 
boolean|| char (simple type) 
2 4 2 
418 
( ) А5СП 
(1=true[] O=false) С 
double 10 
C void 
) 
(subrange type) 
(enumerated type) Pascal 0-9 
type Digit = 0..9; 
C red[| green[] blue 
typedef enum ( red, green, blue } Color; 
(type constructor) (array) 
(record) (struct) 
(structured 
























































































































































type) 
















































































































































































































































































СМрачриф«соћ 













































































243 












































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































б 
1) (index type) 
(component type) Pascal 
array [ ] of 
Pascal 
array [Color] of Char; 
Color Char 
Pascal (ordinal types) 
C 
0 C 
array 
Pascal C C 
typedef char Ar [3]; 
Ar ( Color[|3 ) 
I C array[ ] of 
I C I> C 
х:= а(геаП a[blue] :5 ў 
n*size n size 
4 array [0..9] of integer 
40 
(multidimensioned arrays) 
array [0..9] of array [Color] of intleger 
array [0..9,Color] of integer 
1 a[1] [red] 2 a[1,red] 
2 
a[0,red]|| a[1, red] 
a[2,red]||...... а[9, геа]|| a[0,b1ue]|| a[1,b1ue]...... ( 
(column-major form)) 2 a[0,red] 
a[0,blue]|| a[0,green]|| a[1,red]|| a[1,b1ue],a[1,green] ( 
(row-major form)) ( 
a[0,red]= a[0][red] 
a[0] array[Color]f integdli 
FORTRAN 
(open-indexed 
array) C 






















































































































































































































































































244 China-pub.eom 
-----::>-------50| 


void sort ( int a[], int first, int last ) 































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































a ( 
) 
2) (record) (structure) 
С 
struct 
{ double r; 
int i; 
) 
( ) 
( ) 
RXI R 
double I int 
(rx R)X (iX I) r|] i (dot notatio 
x x.r 1 
x.i 2 
ML int*real 
int*real (21| 3.14), 
fst[] впа( 1 2) fst(2,3.14) = 2] snd(2,3.14) = 3.1% 
4 6 
04000 
1 
3) С union 
union 
{ double r; 
int i; 
} 
(disjoint union) 
x x.r x х.1 х 
(кх R)U (iX I) 
4 
4 ( ) 






































































































































































































































China=pubcom 



































245 





















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































6 
С х 
х.к = 20; 
printf ( "$d",x.i ); 
2 
Pascal 
(variant record) 
(discriminant) Pascal 
record case isReal: boolean of 
true: (r: real); 
false: (i: integer); 
end; 
x|] 3 x.isReal( 0 x.r[] x. isReal 
x.r := 2.0 
x.isReal := Екче ( 
) Pascal 
( case) 





































































































record case bollean of 
true:(r: real); 


false: (1: integer); 
























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































end; 
Pascal 
Ada 
ML 
IsReal of real | IsInteger of int 
IsReal[| IsInteger (IsReal 2.0) 
(IsInteger 2) IsReal[| IsInteger (value constructor) 
4) 
Pascal ^ ^integer " u 
С int* (dereference) 
Pascal ^ ( ) р ^integer 
Р^Пр integer|| С * 
*р 

















































































































246 China=pubecom 
—— TT 














































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































| 4 8 
DOS[] РС ( 2 
) ( 400) 
5) ( Равса! 
Ада) Modula-2 
VAR f: PROCEDURE (INTEGER): INTEGER; 
f ( ) 
(f: II) I ML int- 
>int[] C “ di 
Modula-2 C 
int (*f) (int); 
( ІП) ( 
) | 
6) 
(method) (member function) 
(U C++ ) 
© 
(class hierarchy) ( ) (virtual method table) 
6.4.2 
(type declaration)([] (type difinition)) C typedef| Pascal 
ОС 
typedef struct 
( double r; 
int i; 
) RealIntRec; 
RealIntRec struct 
ML ( ) 
type RealIntRec = real*int; 
С struct[] union 
typedef C 


















































struct RealIntRec 
( double r; 





e 00000000 с++000000000000000000000000 (0050000000700 
000000000000000 7000000000000000 sent 


Chinaspub эн 


int i; 


}; 








в 247 












































RealIntRec 
















































































struct 




















struct RealIntRec x; /(М (х ППП Rea 








тпекеа 0000 */ 







































































































































































































































































































































































struct 





























struct RealIntRec 
{ double r; 
int i; 


); 


































































































union typedef 











typedef struct RealIntRec RealIntRec; 


/* 0000000 */ 























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































struct “struct RealIntReé 
typedef RealIntRec 
( 
) 
(recursive data type) 
1 
МГ, ML 
datatype intBST = Nil | Node of int*intBSBTintB 
intBST Nil intBST| ( 
) C ( ) 
struct intBST 
( int isNull; 
int val; 
struct intBST left,right; 
17 
С intBST 
intBST 
ML 
C 
C 2 шин 
С intBST 

























































































struct intBST 


{ int val; 


struct intBST *left,*right; 


}; 


typedef struct intBST * intBST; 








248 


















































Chinaepuh.coM 














typedef struct intBST * intBST; 
struct intBST 
{ int val; 


intBST left, 


























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































right; 
ь 
(ПС struct|] union ) 
| | | malloc 
6.4.3 ПП 
(type equivalence) 
function typeEqual ( t1, t2 : TypeExp ) : Boolean; 
true 
false 
6-14 
( 
) 
record 


x: pointer to real; 


y: array [10] 
end 


of int 
















































































































































































































































































































































































var-decls > var-decls ; var-decl | var-decl 


var-decl > id : type-exp 








Chinaspubscot 









































type-exp — simple-type | structured-type 
simple-type > int | bool | real | char | void 
structured-type> array [num | of type-exp| 
record var-decis end | 
union var-decls end | 
pointer to ftype-exp | 
proc ( type-exps ) type-exp 
type-exps  type-exps , type-exp | type-exp 


0 6-14 0000000000 






































proc ( bool, union a:real; b:char end, int ) : void 




































































249 

























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































void 
proc 
(structural 
equivalence) 
6-6 typeEqual 
6-14 
6-6 
6-15 6-14 
record 
x: pointer to real; 
y: array [10] of int 
end 









































tl - pointer to real; 
































250 coon Chinaspubscot 
мм 


t2 = array [10] of int; 


t3 - record 
x: tl; 
y: t2 
end 


00006-6 ПП 'урееаиа 0000000 6 4000000000000 





function typeEqual ( t1, t2 : TypeExp ) : Bollean; 
var temp : Boolean; 
p1, p2 : TypeExp; 
begin 
НИ and 12 are of simple type then return т/ = 12 
else if //.Кіпа = array and t2.kind = array then 
return ://.size = t2.size and typeEqual ( tI.childl, t2.childl ) 
else if //.Кіпа = record and t2.kind = record 
or tl.kind = union and 12.кта = union then 
begin 
pl := tl.childl ; 
p2 := t2.childl ; 
temp := true ; 
while temp and p/ nil and p2z nil do 
if p1 name# p2.name then 
temp := false 
else if not typeEqual ( р1.сћиа1 , p2.childl ) 
then temp := false 
else begin 
pl := pl.sibling ; 
p2 := p2.sibling ; 
end ; 
return temp and p/ = nil and p2 = nil ; 
end 
else if //.Кіпа = pointer and t2.kind = pointer then 
return typeEqual ( tI.childl , t2.child1 ) 
else if //.Кіпа = proc and t2.kind = proc then 
begin 
pl :- tl.childl ; 
p2 := t2.childl ; 
temp := true 5 
while temp and p/# nil and р2= nil do 
if not typeEqual ( pl.childl , p2.childl ) 
then temp : = false 
else begin 






































(йари ком т 251 
пи ll 


pl := pl.sibling ; 
p2 := p2.sibling ; 
end; 
return temp and pl = nil and p2 = nil 
and typeEqual( tl.child2 , t2.child2 ) 
end 
else return false; 


end ; (* typeEqual *) 


var-decls > var-decls ; var-decl | var-decl 
var-decl id :simple-type-exp 
type-decls — type-decls ; type-decl | type-decl 
type-decl > іа = type-exp 
type-exp — simple-type-exp | structured-type 
simple-type-exp  simple-type | id 
simple-type > int |bool | real | char | void 
structured-type > array [num] of simple-type-exp| 
record var-decls end | 
union var-decls end | 
pointer to simple-type-exp | 
proc ( type-exps ) simple-type-exp 
type-exps > type-exps , simple-type-exp | simple-type-exp 


0 6-15 000000000600 






























































































































































П00000000000000000000 (пале equivalence)[] 
11 1 000 00101010100110101010101011010110101011010 
ППООООООО0 u uut 
tl = int; 
t2 = int 
ПП +10 200000 000000 120 000000000000001 О 























гуреЕдиа 000000000 
function typeEqual( 1112 : TypeExp ) : Boolean; 





var temp : Boolean ; 
pl, p2 : TypeExp ; 
begin 
НИ and 12 are of simple type then 
return {1 = 12 
else Ғ// and 12 are type names then 
return ¢/ = 12 
else return false ; 
end; 





252 





Сірге сом 





































































































































































































































































































































































































































































































































































































x: array [10] of int; 
y: array [10] of int; 




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































array [10] of int х y ( ) 
6-6 
else if t] and 12 are type names then 
return typeEqual ( getTypeExp(t1) , getTypeExp(t2)) 
getTypeExp ( ) 
t2 - tl; 
typeEqual( tl , t2 ) ИП 12 
tl = record 
x: int; 
t: pointer to t2; 
end; 
t2 = record 
x: int; 
t: pointer to tl; 
end; 
typeEqual (11,12) typeEqual ИП 12 ИП 12 
typeEqual ( 12 , t1 ) 
true 
( ) typeEqua 
( ) 
Pascal[] C 
(declaration equivalence) 
t2 = t1; 
(aliase) ) 
tl = int 


t2 = int 





СМрачриф«соћ 
































253 











































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































6 

+1] t2[] int ( int ) 

tl = array [10] of int; 

t2 = array [10] of int; 

t3 = t1; 

t1|| t3 t2 
getBaseTypeName 

Pascal C 

ML type 

type RealIntRec - real*int; 

ReallIntRec real*int 

datatype intBST - Nil Node of int*intBST*intBST 

datatype ( Nil[| моде) type 
datatype NewReallInt = Prod of real*int; 
(2.7,10) RealIntRec|| real*int Prod(2.7,10) NewReal- 
Int[]|( real*int) 
6.4.4 
typeEqual| 
6-16 6-14 
6-10 
= 6-10 





































































































program  var-decls ; stmts 


var-decls => var-decls ; var-decl | var-decl 


var-decl э ісі: type-exp 


type-exp 2 int [Боо1 | array Hium]of type-exp 


stmts — stmts ; stmt | stmt 


stmt if exp then stmt | id := exp 


0 6-16 П0000000000 


















































254 anon Сһһаг 0% 
— as 








ВОО ПППППППППППППППППЦПППППВП 


var-decl — ісі: type-exp 








insert ( id .name, type-exp.type) 
ПППШПППШПППШППШПШППППППППППППППППШППП їуре-ехрППППП 





















































06-10 000 6-16 00 00000000000 














0000 0000 

var-decl > id :type-exp insert( id.name, type-exp.type) 
type-exp 2 int type-exp.type := integer 
type-exp 2 bool type-exp.type := boolean 
type-exp, 2 array type-exp „type := 

[num] of type-exp, makeTypeNode (array.num.size.[] 

гуре-ехр,дуре) 

stmt — if exp then stmt if not typeEqual(exp.type , boolean) 


then type-error(stmt) 





stmt —D id := exp if not typeEqual(lookup(id.name), 


exp.type) then type-error(stmt) 





exp, 2 exp, * exp, if not (typeEqual(exp,.type , integer) 
and typeEqual(exp,.type , integer)) 
then type-error(exp, ) ; 


exp,.type := integer 





exp, 2 exp, ок exp, if not (typeEqual(exp,.type , boolean) 
and typeEqual(exp,.type , boolean) 
then type-error(exp, ); 


exp „type := boolean 





exp, > exp, [exp] if isArrayType(exp,.type) 
and typeEqual(exp,.type , integer) 
then exp type := exp,.type.childl 


else type-error(exp, ) 

















exp > num exp.type := integer 

exp 2 true exp.type := boolean 

exp 2 false exp.type := boolean 

exp 2 id exp.type := lookup(id .name) 
ПППППППППП ППП 00 56-161 0000000000 аххауј 000000 


makeTypeNode (array.size.type) 


















































АЛТҰЛТ ДАУ 


ахтау 
(size) 





















































































































































255 





































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































type integer[] boolean 

2) 
if if 

if not гуреЕдиа! (exp.type , boolean) then type-error(stmt) 
type-error 
typeEqual 
3) true[] false integer|] boolean 
lookup| 
+ or [1 


































































































































































































































































































if isArrayType(exp,.type) 


and typeEqual(exp,.type , integer) 


then exp,.type := exp,.type.childl else type-error(exp, ) 

































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































isArrayType 
( ) exp,.type.child1 
6-10 type-error 
( ) type-error 
( 
) type-error 
( 
) 6-10 exp, > exp, 
[ exp, 1 exp, exp, 
or 
6-10 
6.4.5 
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256 Слэгримсом 
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2-3 2.1+3.0 
procedure тах (х,у: integer): integer; 
procedure тах (х,у: real): real; 
Pascal[] C 
Ada[] C++ 
max 
lookup 
2) 
2.1+3 
2.1+3 3 
Modula-2 
2.1+ЕЪОАТ (3) (ПС ) 
(соегсіоп) 
000000 
real 
integer 
рг = і; 
С к double[| i int i[] r 
double (ПС ) 
i = r; 
( 
) C++ A B x A yU B 
х=у ( (subtype principle)) 
























































































































































АЙТЫЛА, 



























































257 



































































































































































































































































































































































































































































































































































































































6 
3) (polymorphic) 
(monomorphic) 
) 
procedure swap (var х,у: anytype); 
swap anytype (parametrized)[] anytype 












































(type variable) 








































































































































































































procedure (var anytype, var anytype): void 























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































anytype ( ) (type 
pattern) (type scheme) swap 
var x,y: integer; 
a,b: char; 
aveo Us ; 
swap (a,b) ; 
swap (a, x) ; 
swap (x, y) swap " Ё ( ) 
procedure (var integer, var integer): void 
swap (a,b) 
procedure (var char , var char): void 
swap (a, x) swap 
procedure (var char, var integer): void 
swap anytype 
ML 
ПП“ i ) 
6.5 ТЇМҮППЇ DD D Ú 
TINY TINY 
TINY 3.7 
TINY TINY 
TINY 
if[] repeat 
write 
TINY 



























































































































































































































































258 


















































ӨЛТЕЛТ 5). 









































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































6.5.1 ТІМҮ 
ТІМҮ 
ТІМҮ 
ТІМҮ 
ТІМҮ ( ) 
1: ( Sample program 
2: їп TINY language -- 
3: computes factorial 
4: ) 
5: read x; ( input an integer ) 
6: if 0 < x then ( doh compute if х <= 0 ) 
7: fact := 1; 
8: repeat 
9: fact :- fact * x; 
10: x = x — 1 
11 until x = O; 
12: write fact ( output factorial of x ) 
13: end 
(TraceAnalyze= True) 
Symbol table: 
Variable Name Location Line Numbers 
x 6 9 10 10 11 
fact 1 9 9 12 
symtab.h[] symtab.c B ( 1150 
1179 1200[] 1321[] ) 
6.3.1 6-2 
delete insert 
lookup 
( ) 
symtab.h 
void st, insert ( char * name, int lineno, int loc ); 
int st, lookup ( char * name ); 
void printSymTab(FILE * listing); 
symtab.c LineList([]| 1236 
1239[] ) 















































































































































































































































АЛ ЫГА, 















































“ЛД” BucketList([] 1247 












































1252[] ) | st. insert 


259 

























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(0 1262 12951 ) 
(st_insert / 
) 
6.5.2 TINY 
TINY 
analyze.h[|( B 1350 1370[] ) 
void buildSymtab(TreeNode *); 
void typeCheck(TreeNode *); 
1 st_insert 
printSymTab 2 
analyze .c B 1400 
1558[] [] 
buildSymtab|| typeCheck 
traverse (|| 1420 1441[] ), ( ) 
static void traverse ( TreeNode * t, 
void (* preProc) (TreeNode * ), 
void (* postProc) (TreeNode * ) ) 
( if (t != NULL) 
( preProc(t); 
( int i; 
for (1-0, 1 « MAXCHILDREN; 144) 
traverse(t-»child[i],preProc, postProc); 
) 
postProc(t); 
traverse(t->sibling, preProc, postProc); 
) 
) 
“ Е ргергос 
ргергос traverse TINY 
insertNode " Ы 
nullProc ([] 1438 1441[] ) 
buildSymtab (П 1488 14941 ) 

















traverse (syntaxTree, 


insertNode, nullProc); 

































































typeCheck([] 1556 1558[] ) 





































































































traverse (syntaxTree, nullProc, 


checkNode) ; 


260 













































































China-pubecom 




















































































































































































































1483 



























































checkNode 
insertNode|| checkNode 
insertNode (1 1447 
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attr.name 
attr.name 3 insertNode 
st insert (t-»attr.name, t-»lineno, location#++) ; 
( ) 
st insert (t-»attr.name,t-»lineno,0); 
( ) 
buildSymtab printSymTab 
TraceAnalyze ([] main.c ) 
checkNode 
( ) 
TreeNode type (U globals.h 
B 216[] ) TINY 
B 203[] ) 
typedef enum (Void, Integer, Boolean} ExpType; 
Void[|" Е 
checkNode typeError 
checkNode ( 
ConstK[] Так) ( OpK) (U 1517 1520 
Integer ( ) (O 1508 1516[] ) 
Integer ( ) 
OpK ( ) 
(«l] =) Boolean Integer 
ReadK Integer 
4 ЇЁК|| RepeatK 
Boolean([| 1527 1530 1539 154211) WriteK 
AssignK ([] 1531 1538[] ) ( 
) 
x = 1 < 2; { error - Boolean value 


2; 


cannot be assigned ) 


{ also an error ) 



















































































































































































China=pubscom 












































number — digit number | digit 
digit > 0|1|2|3|4|5|6|7|8|9 


261 










































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































6.2 | | | LU uti | ( Ц 
count| ІП) 
dnum — пит.пит 
пит — пит digit | digit 
digit > 0|1|2|3|4|5|6|7|8|9 
6.3 count ( 
) | | | dnum П 
6.4 
exp > term exp’ 
exp’ 2 + term ехр'| — term ехр | £ 
term > factor term’ 
term’ => * factor term'| € 
factor > (exp)| number 
6.5 6-2 val postfix| | П | ПЦ 
(34-3) * A2[] postfix " 34 3-42 + +" | 
number.strvval | 
6.6 ( ) 
btree — ( number btree btree )| nil 
Ц ІП | i Us | 
2 > (2 (1 nil nil) (3 nil 
nil)) (1 (2 nil nil) (3 nil пї1] 
6.7 Pascal 
decl > var-list: type 
var-list > var-list, 14| id 
type 2 integer|real 
6.8 6.7 | ПП О 
6.9 6.4 based-num 
6.10 а. 6.14 5/2/2.0 
b. 5/2/2.0 
c. b 
6.11 6.4 3* (4+5) *6 
6.12 6.7 x,y,z:real 


































































































































































































6.13 


6.14 


6.15 




























































































China=pubecom 































































































































































































































































































































































































































































































































































































































































































































































































| 0000 
0000 0000 
5-АВС B.u = S.u 
A.u = B.v + C.v 
S.v = A.v 
Аэ а A.y z2* А.и 
B> b В.у-В.и 
Сэ с С.у = 1 
а. abc ( ) 
000000 $11 0030000000 Sv 
с. 
0000 0000 
5 АВС В.и = 5.и 
C.u = А.у 
A.u = B.v + С.у 
S.v = А.у 
А-а А.у = 2 *А.и 
Bob B.v = B.u 
C = c C.v = C.u- 2 
001 S.u 2 3L] U LI I ПП svi | 
0000 0000 
decl > type var-list vat-list.dtype = type.dtype 
туре > int type.dtype = integer 
type 2 £loat type.dtype = real 
var-list, > id, var-list, id.dtype = var-list .dtype 
var-list,.dtype = var-list,.dtype 
var-list > id id.dtype = var-list.dtype 
П ІКП | | U U type.dtypel] EH] | U B LU. U | var-list [] U] | 
ПП 00000000 
а. | B ВЬ |а 518(1) 
В- АВЬ |а 
А Э e 
(ІПППППП #00000 0000 К0 00 кр 
b. ПО 00000 0000 20 Yach 00000 U B LU U U | | 


















































СМрачриф«сом 


6.21 


6.22 


6.23 





























263 















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































с. 
6.3.5 
6-9 
6-9 
6.3.5 
6-6 туре Едиа! 252 
(00) 
exp — exp + exp | exp — exp | exp * exp | exp ! exp 
| (exp) | num | num. num 
C 
Modula-2 
FLOAT / div 
6-16 
program — var-decls ; fun-decls ; stmts 
var-decls — var-decls ; var-decl | var-decl 
var-decl — ісі: type-exp 
type-exp 2 int |Боо1 | array [num] а е-ехр 
fun-decls > fun id (var-decls ) : type-exp ; body 
body > exp 
stmts > stmts ; stmt | stmt 
stmt > if exp then stmt | id := exp 
exp > exp + exp | exp ox exp | exp [exp] | id ( exps ) 
|num|true|false|id 
exps — exps , exp | exp 
a. typeEqual 
b. ( exp > id (exps) ) 
6-10 
С 
(А)-х 
х | | AL] typedef double | U Q -x 
double | |l] A U | 
а. 
b 
TINY [] 




























































































































































































(Модграйхсом 



























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































6.24 TINY 
0000 
6.25 6.4 С | | ІП 6.130 EvalWithBase 
C 
6.26 a. 4-1 ( 
6.5) 
6.27 a 5-1[] Yacc 
( 6.5) 
b Yacc 
6.28 Yacc 6.20 Modula-2 
6.29 Yacc 1е1- (U 6-9) ( let[] in 
Lex ) 
6.30 Yacc[] Lex 6-16 
6.31 TINY LineList 
insert 
6.32 TINY 
6.33 TINY TINY 
y := 2+х; 
x := 3; 
TINY “ ” 
6.34 а TINY 
TINY 
( ) 
b. a TINY 
ППППП 
Knuth[1968] 
Lorho[1984] Slonneger[] Kurtz[1995] 
TINY 
Mayoh[1981] Јатаует | Ogden[] Rounds[1975] 
Fischer[] LeBlanc[1991] LR 
Jones[1980] £- ( Yacc[] ) 
LR Purdom[] Brown 
Aho| 










































































































































































































































































Chiba-pub«toM 265 
m 





























Hopcroft Ullman[1983][] Cormen[] Leiserson[] Rivest[1990] | 000 | 000 
Knuth[1973][] [] 













































































































































































































































































































































































































































































































































































































































































































































































































































































































































































ПП Ц Ц LU t Ц Ц Ц i ul 
ППП ППП Louden[1993][] [1 000 U [] Cardelli] Wegner[1985] 
C[] Ada Pascal 
FORTRAN77[] Algol60[] Algol68 ППППП МІП Наѕке | И [] | Ц 
uut 6.4.3 || Koster[1969] ДП 
П Amadio[] Сагае 119931 П | | [| Ц Peyton 
Jones[1987][] Reade[1989][] [] МІП Haskell] [| | Hindley- 
Milner [Hindley[] 1969[] Milner[] 1978] 
| | | ( 
Lex[] Yacc) LINGUIST[Farrow[] 1984] 
GAG[Kastens[] Ни] Zimmermann[] 1982] [Reps[] Teitelbaum[] 1989] 
Ц Ц Uli 










































































































































































































































































Ki puho 


Оймен, 


07] 00000 


0000 
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3 
3 FORTRAN77 (fully static environment) 
СП С--Ң| Pascal Ada (stack-based environment) 
LISP (fully dynamic environment) 3 
3 
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000000 —- 


0020000 —- 


0070000 — 
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00000 
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LU D ^D ü | 
00000 





























© 
























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































| / 
(FORTRAN77 ) 
Pascal C 
/ C 
Pascal || const "^ Hello зала C 
printf (" Hello %а\п ", 12345 ) ; 
12345 001 
/ 
( С ) 
(stack) 
(heap) LIFO(last-in, first-out) 
LIFO ( C ) © 
( 
) 



















































































































































































































































































































































































































































































ка) 
га 
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<— — | П = 


ин | 
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o ПППППППППППППППППГГ 


0000000 














0000000000000000000 


000000000000000000000000000000000000000000000000 


ПППППППППППППППППППП 00 Gelocatable code) 000000000 фФаех 000 
0000000000000000000000000 


e П0000000000000000000000000000000000000000 00000) 


0000000000000 


















































268 Chinaspubseom 
— Was 





























LIFO 























































































































































































































































































































(procedure activation record) 


































































































































































































































































































000000000 





0000000000000 


oo 
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ППППППППП 
ППППППППППП 
( ) 
( ) ( 
) 
(FORTRAN77) (C[] Pascal) (LISP) 
(stack frame) 
RISC 
(рс) (sp)(stack pointer) 
(fp)(frame pointer) 
( ) (argument pointer) | 
(calling sequence) 
(call sequence) (return sequence) 
1) ( 
20 2) 
e ППППППП %\Ах00000000000000000000000000000 
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FORTRAN77 
" 
__=__- у 
ПППППППП ПП 
ППШПППП HB 
( ) 
g 
7.1 7-1 FORTRAN77 
QUADMEAN © QUADMEAN COMMON MAXSIZE 
e О000000000000000000000000000000000000000000000 
e 0000000 БОКТППП ОУАОМЕАМЧППППППППППППП 










































































270 Слэгр см 
——>'Ht 
























































ПППП7-1 ПП FORTRAN779 000 





PROGRAM TEST 

COMMON MAXSIZE 

INTEGER MAXSIZE 

REAL TABLE(10),TEMP 

MAXSIZE = 10 

READ *, TABLE(1),TABLE(2),TABLE(3) 
CALL QUADMEAN(TABLE,3,TEMP) 

PRINT *, TEMP 

END 


SUBROUTINE QUADMEAN(A,SIZE,QMEAN) 

COMMON MAXSIZE 

INTEGER MAXSIZE,SIZE 

REAL A(SIZE),QMEAN, TEMP 

INTEGER K 

ТЕМР = 0.0 

IF ((SIZE.GT.MAXSIZE).OR.(SIZE.LT.1)) СОТО 99 










































































































































































































































































































































































































































































































































































































































































































































































































































































































































































DO 10 К = 1,SIZE 
ТЕМР = ТЕМР + А(К)*А(К) 
10 CONTINUE 
99 ОМЕАМ = SQRT ( TEMP/SIZE) 
RETURN 
END 
ын 000 
© 
QUADMEAN A 
SIZE[] QMEAN FORTRAN77 diia 
(TABLE 
ЗП TEMP) 
QUADMEAN 
( QUADMEAN 00 ОЏАРМЕАК 
А карта 00000 
) 3 
(7.5 
) 
7-1 07-1 00007-1000000000 
e ПППП РОВТВАМ770 0 СОМмОМГПППППППППППППППППППППППППППППП 
000000000000000000000 
e 00000000000000000000000000000000000000 
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7 
QUADMEAN 
QUADMEAN 
TEMP+A (K) *A (K) SQRT TEMP/SIZE 
( ) 
А (K) *A (K) 
TEMP 
( ) 
73 HHHHHHBHBH 
( 
(push)) 
( (pop)) (stack of activation record)( (runtime stack) 
(call stack)) 
4 4-1: | 
( С ) 
( 
) ( ) 
(frame pointer) [] (fp ( fp) 
(control link) 
(dynamic link) ( ) 
fp (old fp) fp 
(stack pointer)[] sp ( (top of stack) 
tos) 
7.2 Euclid (C ) 
7-2 
ПППП7-2 07-20 СПП 








#include <stdio.h> 


int x,y; 





2/2 


int аса( int u, int v) 

{ 1Ё (v == 0) return u; 
else return gcd(v,u % v); 

} 















































main() 

1 scanf("*d*d",&x,&y); 
printf ("%d\n",ged(x,y)); 
return 0; 


Chinaspub.com 





















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































} 
1511 10 шаш || | аса (15,10) 
аса (10,5) {J ( 15% 10 2 5) 3 
аса(5,0)( 10%5-0) 5 
3 7-2 0000000 
дса 
main [0000 
00000 ged 
T 000000 
fp 
000 а 
ged 200000" 
main printf 
main / 
( main 00000 ged 
000000 
) 
аса | 00000 
| 7-1 
FORTRAN77 | 3 С 0 7-2 01720 000000 
7.5 
7.3 7-3 С 
таїп 1 g (2) П ( x 
2) m 2 у 1 g Е (1 Е а (1) 
а m| 1 y 0 ( g 
) 7-3a 
0000 7-3 07.30 СПП 





int x = 2; 


void g(int); /* prototype */ 


void f(int n) 
( static int x = 1; 

















China=pubecom 
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7 
g(n); 
х--; 
} 
void g(int m) 
( int y = m--1; 
if (у > 0) 
1 fly); 
=; 
g(y); 
} 
) 
main() 
{ g(x); 
return 0; 
) 
90 £ (£ x[] 1) 
ПОП 0001 а Е П | | x[] 1 
П 4(1) m|] 0 2[] y 1 7-3b 000 
000000 000000 
main[] (000 main 0000 
OO 90000 ПП 90000 
ПП ПП 
00 #0000 00 90000 
Sd ПП 
ПП 90000 












































































































































[7-3 DODD Рада EJ DB J H DJ D 
а 0020 0 ғ000000000 7300000000 
1131 000000000 7300000000 
Ц 7-36 9 3 ull ( ЈЕ 
Е х 















































































































































































































































































































































































































































274 


















































China-pubecom 



































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































x 
(activation tree) main() main() 
| 
( ) gcd(15,10) g(2) 
| ^ 
7- gcd(10,5) f(1) g(1) 
| | 
цэс ( gcá(5,0) g(1) 
15[] 10 ) 7-3 
7-4 7-20 0 7-3 а) b) 
0 7-4 00007200000 7-30 
ПППППП 
1) 
7-3[] € g ( 7-3 09 
m y 
mOffset|| yoffset g 
[ow [Tree 
Ёр--- -4үр-------- 
m[] y fp 
4 
mOffset = +4[] yOffset = -6 m|] y 
0 4 (Ер) П -6 (Ер) 
7.4 C 
void f(int x, char c) 


( int a[10]; 
double y; 
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П ПП 
x +5 
с +4 
А - 24 
Ү - 32 
a[i] 
(-24+2*i) (fp) 
251 (scale factor) 
i 
7-3 ( )C x 
( fp) f x 
) 
( 
2) 9 
@ 
) 
@ [] fp ( ) 
@ fp ( sp sp fp 
) 
e ППП0000000000000000000000000000000000000000 































































































































































































































































































































































































































































































@ П П ІП «EL EL ПОП 
eui ПП 1000 
ШИШ | ПО 
© 0 fp[] 0 0 $200 
@ fp 
@ 0000000000 
Ф [1 D spa 000000 
[] 7.5 0 7-3b [] D U eU 000001 ІП 
Ер--»- 009100000 
Бр — 
10 90000 | mi 0 | 100000 
009100000 
ПППФИПППЦПП 


00000000 


00 9000000 
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009000000 
шалны 0090000000 
Sp —— 
ч 
009000000 
0090000000 
fp — 
SP —— 
3) 
fp 
@ @ 
(1) С printf 
printf("$d$s$c", n, prompt, ch); 
4 ( | "$d$s$c") 
printf("Hello, world\n") ; 
С (in reverse order) 
p 1 ( printf 
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А4а 














т 
N 
x< 























(unconstrained array) 






































type Int_Vector is 
array(INTEGER range <>) 


procedure Sum (low, 


A: 


high: 
Int_Vector) 


INTEGER; 


is 


temp: Int Array (low..high); 


begin 


end Sum; 


of INTEGER; 


return INTEGER 











































































































( temp ) 
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Sum| ( 
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Sum| ) 
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A[] [] (] [] 10 
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ПППППППП 
Sp —— | 
А[1] 
86 (Ер) +2*i 
@ 4 
Sum 
e ПЦАдППППППП  ПППП  ГП ПЇПППППГП 
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7 
) 
С С 
С ( ) 
4) 
С 
x[i] = (i + 3) 5(1/к + Ғ(3)) 
f x[i] 
) itj ( ) i/k £(3) 
f f 
00000000 
000 
fp — = 0000 000000000000 
хга1000 
i+3U 00 000 
i/3U 00 
вр---- 
00 =000000000 
00000 
5р 
їр ( 













































































































































































































































































void р( int х, double у) 
{ сһаг а; 


int i; 


A:( double x; 


int j; 


B:( char * a; 
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int k; 
) 
) 
Р | АПВ ( ) 
( | ) 
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| 
С А 
002000000 
ПАТППП 
0 в] [] | 

00000000 
002000000 
080000 
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0000 7-4 РазсаПППППППППППППП 





program nonLocalRef; 


procedure p; 
var n: integer; 


procedure q; 
begin 
(* a reference to n is now 
non-local non-global *) 
end; (* q *) 


procedure r(n: integer); 
begin 

q; 
end; (* r *) 


begin (* p *) 
n := 1; 
r(2); 

end; (* p *) 


begin (* main *) 
р; 
end. 













































































































































































r n r n 































































































РП n ( (chaining) ) 
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[== = 
[zJ E 
[к= = 
ЕЛ Л 














































































































(static link) 9 











= = 
пага 





7-6 7-5 
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D75 0000 7-40 0000000 
























































(Тр) r 















































- 6(r) ( 7-6 



































fp 
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= E 
= ш] 












































076 0000000060000 740 
0000000 


0000 7-5 000000 Равсайг 





program chain; 


procedure p; 
var x: integer; 


procedure q; 
procedure r; 
begin 


if ... then p; 
end; (* r *) 





e ПП00000000000000000000000000 


СМрачриф«соћ 
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7 
begin 
r; 
end; (* q *) 
begin 
q; 
end; (* p *) 
begin (* main *) 
p; 
end. 
r qi P r x 
(U pU x) х 7-7 ї (1111) 
О0 = Р к ) 
х (access chaining) 
Їр 7-7 х ( ) 
Load 4(fp) into register r. 
Load 4(r) into register r. 
Now access x as -6(r). 
ПППППП 
(nesting level) : L ши 
( Pascal Е 
С ) 0 EN 
0090000 
( ) DD 
1 1 
7-5 p Ер П П «ПППП 
А E sp — ин 
х 1 ч Р 
1 к 
2 а 
© 3 0 7-7 0000 7-50 000 00 #00 
0000000 
х 3 х 1 
т 
т r 1 fp r 
3 
( 0) 
(display) 






































284 (Модграхсом 
— an 




























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































1) 
fp sp 
( 
) 
П П 0000 
ППЕПППП 
( 0) D 
( 
fp ) П П а 000 
7-4 к а ЕБ 
Ж 2 q 00=0000 
Ш ( а Р ПП 
Р 1) 
ч 7-6 ч 0020000 
Р ( к ай 
) 
П П «аПППП 
00=0000 
( ) ПП 
7-5 =0 0 2 ( 
р ) 7-8 
r 
3 078 00000 750 0000 =00 20 
r 
000000000 
7.33 П 111 01 01 0000 
(instruction pointer) (environment pointer) 
(closure)( 8 4 “0” ја 
ар, ер? ip ( ) ep ( 
) 


























e ПППППАППП ПППППП П  П П ППЦП МЕАПППП 000 Kleene) (000 
0000 
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7.7 7-6 Pascal р а 
P q r РЇР а Е 
а ПП х р а ар, ер>П O U ip r 
a ep fp ( а г) al] ер 
7-9 а р р а a[] ер 
П 7-10 























































































































00007-6 000000000000 Разсайг 





program closureEx(output); 


procedure p(procedure a); 
begin 

a; 
end; 


procedure q; 
var x:integer; 


procedure r; 
begin 

writeln(x); 
end; 


begin 
x := 2; 
p(r); 

end; (* q *) 


begin (* main *) 
q; 
end. 






































000000 
000000 
ПП 0090000 
0090000 Е 
m 0020000 
0020000 
si 0020000 
07-9 HDH DB 7-60 00000200 0 7-10 00007-6 000 00а 
00000 0000000 
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( 000000 
000000 
) ПП 
0000 
000 004 000 
0000 nn 
xi 2 HR 
к:<ір,,ер,> 
: а:<ір,,ер,> 
1P D ППэПППП 
ППаПППП 
<ір, ер> 
TM 07-11 0000 7-60 0000 000000 
0000000000000000 
7-10 
СП Modula-2[] Ada C 
( ) Modula-2 
Ada 
7.4 ППППП 
7.4.1 0000 П 
СП Pascal Ада 
(dangling reference) 
С 
int * dangle(void) 
{ int x ; 
return &x;} 
addr = dangle ()|| addr 
С ( 
) С 
С 
7-7 х] g ч f 
C Modula-2 
( 
Modula-2 —— Pascal 











































































































































































































China-pubcom 








































































































000077 00000000000000000 600 


287 





typedef int (* proc)(void); 


proc g(int x) 


( int f(void) /* illegal local function */ 


( return x;) 
return f; ) 


main() 
( proc c; 
с = g(2); 


print£("%d\n",c()); /* should print 2 */ 


return 0; 

































































LISP[] ML 
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7.4.2 

e 

Smalltalk[] C++ 
Smalltalk| LISP С++ 
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0000 
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( ) 
( 
(inheritance graph)) 100 | 
( ) ( 
) 
| 
( ) 
Smalltalk 
(virtual function table)(C++ ) ( ) 
( ) 
C++ 
7.8 C++ 
class A 
( public: 


double x,y; 

void £(); 

virtual void g(); 
}; 
class B:public А 
{ public: 

double z; 

void £(); 

virtual void h(); 


}; 
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2000000 
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ЕСИ 
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( f “ ") С++ 
( ) 
7.4.3 П 
7.4.1 
(7.1 
) 
) 
( 
) 
Pascal new[] dispose C++ new[| delete[| C 
malloc[| free (stdlib.h) 












































































































































void * malloc (unsigned nbytes); 


void free (void * ap); 











































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































malloc 
free free 
malloc 
( ) 
(coalesce) 
(fragmented) 
( ) 
malloc[] free 
( ) 
7-8 
0000 7-8 ППППППППП С0000000000000000 











#define NULL 0 
#define MEMSIZE 8096 /* change for different sizes */ 


typedef double Align; 
typedef union header 
1 struct { union header *next; 
unsigned usedsize; 
unsigned freesize; 
) 8; 
Align a; 
) Header; 





290 















































static Header mem[MEMSIZE]; 
static Header *memptr = NULL; 


void *malloc(unsigned nbytes) 
( Header *p, *newp; 


unsigned nunits; 


nunits = (nbytestsizeof(Header)-1)/sizeof(Header) + 1; 


if (memptr == NULL) 

( memptr-»s.next - memptr - mem; 
memptr->s.usedsize = 1; 
memptr->s.freesize = MEMSIZE-1; 

} 

for (p=memptr; 

(p->s.next!=memptr) 88 (p->s.freesize<nunits) ; 
р-р->в.пеке); 

if (p->s.freesize < nunits) return NULL; 

/* no block big enough */ 

newp = ptp->s.usedsize; 

newp->s.usedsize = nunits; 

newp->s.freesize = p->s.freesize - nunits; 

newp->s.next = p->s.next; 

p->s.freesize = 0; 

p->s.next = newp; 

memptr = newp; 

return (void *) (newp+1); 


void free(void *ap) 
{ Header *bp, *p, *prev; 


bp = (Header *) ap - 1; 
for (prevzmemptr,pzmemptr-»s.next; 
(рісьр) && (p!=memptr) ; prev=p,P=p->s.next); 
if (p!sbp) return; 
/* corrupted list, do nothing */ 
prev-»s.freesize += p-»s.usedsize + p->s.freesize; 
prev->s.next = p->s.next; 
memptr = prev; 


China=pubscom 
























































































































































































































































































































































































































































































































































MEMSIZE 
Header Header 
Header 3 
( 
( ) 
Header 





usedsize 
freesize 


ПППППП 
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7-8 Неааег union Align ( 
double) 
memptr ( ) 
NULL malloc memptr 
memptr --»- 
1 malloc 
malloc 1 ( 
(first fit) ) та11ос[] 3 
memptr — 
( 
freesize 0)0 memptr 
malloc 
( ) 
free 1 
memptr 
3 
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7.4.4 
malloc|| free 
(manual) 
(automatically) 
malloc 
free 
free (garbage collection) 
(mark and sweep) e 
malloc 
1 
(memory compaction) 
( ) 
(stop-and-copy) (two space) 
(generational garbage collection) 
75 000000 
e 000000000 Geference counting] ППППППППППППППП^ППППП”ППП 
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(binding) | 







































































































































































(parameter passing mechanism(s)) 
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C++ 
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Ada 




















































































































































































































(pass by value) 



























































(pass by reference)( 



















































































































































































(pass by value-result) (pass by name)( 


















































(delayed evaluation)) 
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Е (++х,х); 
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( printf ) 7.3.1 






























































Z5. 

































































































































































Раѕса Ada 





























(Ada 


































































































































































































Ada 
















































































СП Pascal 




































































































































































































































































































































































































































































C inc2 

















































































































void inc2( int x) 
/* incorrect! */ 


( ++х;++х; } 
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void inc2( int* х) 
/* now ok */ 


{ ++(*х);++(*х), } 








































































































y 


































































































inc2(&y) 
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Chinaspubscom 




































































































































































void init(int x[],int size) 

/* this works fine when called 
as init(a), where a is an array */ 

{ int i; 


for (i=0;i<size;++i) x[i]=0; 


















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































72.2 
) 
(alias) 
FORTRAN77 Pascal 
var C++ 
& 
void inc2( int & x) 
/* С++ reference parameter */ 
1 ++x;++x; } 
inc2 (y) 
( ) 
FORTRAN77 
р(243) 
FORTRAN77 2+3" Ч 
(U FORTRAN77 ) 7.1 
3 
( C[] C++ ) 
C++ 
void f( const MuchData & x ) 
MuchData 
РЕ 2 




















































































































































































































e ПП0000000000000000 


































































































Chinaspubecom 295 
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7.5.3 ПП 

















































































































































































































Ада (in) (out) (Ada 
(out) ) 








































































































































































































































































































void p(int x, int y) 
{ ++x; 

++у; 
} 


main() 

{ int а=1; 
р (a,a); 
return 0; 




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































7.5.4 Ц 




























































































































































































































































































(delayed evaluation) 










































































































































































































































































void p(int x) 












































































































































































































































































































































{ ++x; } 
p(a[i]) ++(a[il) p x 
i (C ) 
int i; 
int a[10]; 


void p(int x) 
( ++i; 
++х; 
} 
main() 
(i= 1; 
a[1]=1; 



































296 

















а[2]=2; 
р(а[1]); 
return 0; 





р a[2] 




















3 a[1] 














ЛТ 5 

































































































































































































































































































































































































































































































































































































































































(lazy evaluation) 

























































































(memoizing) 























Miranda[] Haskell 
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ТІМҮ 
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4 УП zl] w 013 
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Chinaspub.coM | 297 
шпаа 









































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































/ 
TINY 
st_insert 
st_lookup ( B 1166 117111) 
void st_insert( char * name, int lineno, int loc ) ; 
int st lookup ( char * name ) ; 
1 
( B[] 1413[] ) 
static int location = 0; 
( ) ( 
ВП 1454[] ) 
if (st lookup(t-»attr.name) == -1) 
st insert (t-»attr.name,t-»lineno,location-ct-*); 
else 
st insert (t-»attr.name,t-»lineno,0); 
st lookup -1 
( 0 ) 
TINY | 
| 
7.1 FORTRAN77 7-1 































































































































































































АУЕ 


REAL A(SIZE),AVE 
INTEGER N,I 
10 READ *, N 
IF (N.LE.0.OR.N.GT.SIZE) GOTO 99 
READ *, (A(I),I=1,N) 
PRINT *, 'АМЕ = ',AVE(A,N) 
GOTO 10 
99 CONTINUE 
END 
REAL FUNCTION AVE(B,N) 
INTEGER I,N 
REAL B(N),SUM 
SUM = 0.0 
DO 20 I-1,N 
20 50М-50М-8(1) 
AVE - SUM/N 
END 


7.2 С 7-2 



























































































































































































































































































































































































































































ПШПШПП #000А 
-ПППППЯПППВППП 
int a[10]; 
char * s - "hello"; 


int f(int i, int b[]) 
1 int j=i; 
A:( int i=j; 
char c = Б[1]; 


return 0; 


void g(char * s) 
( char c = s[0]; 
B:{ int a[5]; 


} 


main () 

1 int х=1; 
x = f(x,a); 
g(s); 
return 0; 


} 























Chinaspubcom 










































































factor 0 2000000 П4-ППСППППППП П 
00000 | (2) 
О0О 00 Pascal 00000000000 е00200000000000 
НИ < 0000 x 



























































Program env; 


procedure a; 
var x:integer | 


procedure b; 
procedure c; 
begin 


begin (* b *) 


begin (* a *) 
b; 
end; 


begin (* main *%*) 
a; 


end. 




































































ШТ 5 





7.5 П 

















П Pascal[] 100001 











РО! 




















012002 


































































































00000! 


























program closureEx (output) ; 


var x:integer; 


procedure one; 


begin 


writeln (x); 


end; 


procedure p(procedure a); 


begin 


a; 


end; 


procedure q; 


var x:integer; 


procedure two; 
begin 
writeln (х); 


end; 


begin 


end; 


begin 


x :- 2; 
p(one); 
p(two); 
(* q *) 


(*main *) 


x i9 1; 





| Л 












































ПП Разса EH] E] EU D] U DI | 








ПП 




















D 30 | 





112 


00000! 








299 











П ПППППППППІ 





0 | 




















| 0000 











0800.09.68 






































































































































Program procenv(input,output); 


procedure dolist 


var x:integer; 


procedure newprint; 
begin 
print; 


writeln(x); 


end; 
begin (* dolist *) 
readln(x); 
if x = 0 then begin 
print; 


print; 


(procedure print); 


300 


7.7 


7.8 


7.9 


7.10 


















































end 
else dolist (newprint); 


end; (* dolist *) 


procedure null; 


Chinaspub cow 


































































































































































































































































































































































































































































































































































































































































































ap 





















































































































































begin 

end; 

begin (* main *) 

dolist ( null ) 6 
end. 
FORTRAN77 
1 
3.1 
a. 1 
b. вр fp ap( ) 
1 
( )( 7.6) 
Ада 








































































































































































































Жүре IntAr із Array(Integer range <>) 


of Integer; 

















































































































































































































































































































procedure f(x:IntAr; n:Integer) is 
y: Array(1..n) of Integer; 
i: Integer; 
begin 
end f; 
| 
(display) 7-1 
10000000 





ППРПППППП 


HaJU DDD 











О«г000000 


Sp ——» 






display[2] 









(Муаграйх эн 














































































































































































































































































































































































































301 























































































































































































































































































































































































































































































































































































































































































































7-8 
Ер — 
Sp —— 
a. 
b. 7.4 
c. [1 [] 
d. 7.5 
Ct Du 
void f( char c, char s[10], 
( int * x; 
int у[5]; 
) 
a. [1 LI Ú 0000000 =20 00000 =1 [] 
-8 =4 
fp (D e. 2) s[7]. 3) y I21. 
b. ( ) 
c. П а 
С | | 





































































































#include <stdio.h> 


void g(void) 


{ 


{int x; 
printf ("Sd\n",x) ; 
x = 3;) 
{int y; 
printf ("Sd\n",y) ;} 



























































302 China-bub«coM 
—anas —— и 


int* f(void ) 
( int x; 
printf ("Sd\n",x) ; 
return &x; 


} 


void main() 
{ int *p; 
р = £(); 
*р =1; 
f(;) 
g(); 
) 


7.43 11111111 C++ 


class А 










































































ПЕШ 7.4.20 LU t 












































( public: 
int a; 
virtual void f(); 
virtual void g(); 
}; 
class B : public A 
{ public 
int b; 
virtual void #(); 
void h(); 
}; 
class C : public B 
{ public: 
int c; 
virtual void g(); 


} 

























































































714 П000000000000000000000000000000 00000 
000 01! 
745 00750800000 400 0000 О 0 D. D. DE D] (ICHU 0 LU C 


















































#include <stdio.h> 


int i=0; 


void p(int x, int y) 


{ x += 1; 
i += 1; 
y += 1; 

) 

main() 


( int a[2]=(1,1); 
P(al[il,alil); 
printf("$d sd\n",a[0],a[1]); 


return 0; 












































Chinaspubecom | 303 
mwm 





7.16 















































7.5 100 (U C ) 























































































































#include <stdio.h> 


int i=0; 


void swap(int x, int y) 
{ x = x + y; 

Y = x - y; 

x =X- у; 


main () 
{ int a[3] = {1,2,0}; 
swap (i,a[i]); 
printf("$d за 84 Sd\n",i,a[0],a[1],a[2]); 


return 0; 
















































































FORTRAN77 p 








SUBROUTINE P(A) 
INTEGER A 
PRINT *, A 
А=А +1 
RETURN 

END 





















































CALL P(1) 


























FORTRAN77 000 





























































































































































































































































































































(pass by text) 


















































































































































































































































































































































































































































































































































































































































































































































7.20 a. 


























































































































































































































































































































7.21 





















































































































































(7.4.40 ) 



















































































malloc 










































































304 















































ЛТ 1 















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































a.[] [] 7.4.3 malloc 
b. 
| a 
ППППГП 
FORTRAN77( [] FORTRAN ) П П П 
| Algol60 
(Naur[1963])[] Randell[] Russell [1964] Alogol60 C 
П Johnson[] Ritchie [1981] ( 
7.10)[] Fisher[] LeBlanc[1991] | 
П | Aho,Hopcrott[] Ullman [1983] 
Drozdek[] Simon[1995] malloc[| Ғгее|| [| | 
Kernighan [] Ritchie[1988][] [] 7.4.3 Fraser 
Hanson [1995] | 
Wilson[1992][] Cohen[1981] | 
ML Appel [1992] | Gofer П Qones[1984]) 
Budd[1987] Smalltalk | 
С++ Ellis[] Stroustrup[1990] 
Louden[1993] 
Ц Peyton Jones[1987][] 







































































080 1111 


0000 








































































































• ТМ 
• TINY 








































































































































































































































































































































































































































































































































































































































































































(itermediate code) 















































































































































































































































































































































































































































(01 while ) 
















































































































































































































































































































































































































































































































































































































































































81 О0090000000000000 





TINY 
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(intermediate representation)[] IR 











IR IR 




















































































































































































































































































































































































































( ) 1] while 
















































































306 China-pub.cow 
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(intermediate code) 
(linearization) 
(three-address code)[] P- (P- 
code) 
8.1.1 ПП 
х = yop z 
ҮП 2 ор х ор 
+{] - ҮП 2 
x|] v[] 2 3 
х УП z УП z(x ) 

































































































































































































































































































































































2*a + ( b-3 ) 








































































































САарирсо№ 












































307 




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































8 
t2 =b - 3 
t3 = tl + t2 
t1|| 21| t3 
t3 9 
( 7 “ ” ) 
( ) 
tl = b-3 
t2 = 2*а 
t3 = t2+t1 
( ) ) 
t2 = -t1 
( ) 
TINY 
111 1.7 TINY 
8-1 
0000 8-1 ТІМУПППП 
1 Sample program 
in TINY language-- 
computes factorial 
} 
read x; { input an integer } 
if O < х then { don’t compute if x <= 0 } 
fact := 1; 
repeat 
fact := fact * x; 
xXx: x - 1 
until x = 0; 
write fact { output factorial of x } 
end 
8-2 
read|| write 
if_false i 
e 00 10 =2100000000000000000000000000000000000000000 
0П00000000000000000000000000000 





























308 

















































































































label 


label 


Chinaspub.col 






















































































































































































halt ( ) 










































































0000 8-2 0000 8-10 ПМҮПГ ПП ГП 





read х 

Е1 = x > 0 

ТЕ false tl goto 11 
fact = 1 

label 12 

t2 = fact “х 

fact = t2 

t32x- 1 

ж = t3 
t4 = x 
if false t4 goto L2 
write fact 




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































label L1 
halt 
copy 

х-ү 
fact:-fact*x; 

2 
t2-tact *x 
fact-t2 

8.2 
8.1.2 OUUU | | | 
| ( ) 
4 1 
3 3 null[] “ empty” 
4 (quadruple) 8-2 
8-3 
ПППП 8-3 0000 8-2100000000000 

(rd,x,_,_) 
(gt,x,0,t1) 


(if f,tl,L1, ) 
(asn,1,fact, ) 
(1ab,L2,. , ) 

(mul, fact,x,t2) 












































Chinaspubscom | 309 
wu 


(asn,t2 
(sub,x, 
(asn,t3 
(eq,x,0 
(if f,t 
(wri,fa 
(lab, L1 


,fact,_) 
1,t3) 
rx, _) 
;54) 
4,12, ) 
et, , ) 


s) 


(halt, , , ) 





00008-4 0000 8-30 000000000 coo 





typedef 


typedef 
typedef 


enum (rd,gt,if f,asn,lab,mul, 
sub,eq,wri,halt,. . .) OpKind; 
enum (Empty,IntConst,String) AddrKind; 
struct 
( AddrKind kind; 
union 
( int val; 
char * name; 
) contents; 
) Address; 


typedef struct 


{ OpKind ор; 
Address addri1,addr2,addr3; 




























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































} Quad; 
8-4 8-3 С 
( ) 
union 
3 
3 © 
(triple) 
8-5 8-2 
8-5 label 
0000 8-5 0000 8-20 0000000000 
(0) (rd,x, ) 
(1) (gt,x, 0) 


(2) 
(3) 
(4) 
(5) 
(6) 
(7) 


(if Ғ,(1),(11)) 
(asn,1, fact) 
(mul, fact ,x) 
(asn, (4),fact) 
(sub,x,1) 
(asn, (6) ,x) 





e ППО0000000000000000000000000003-200000000 0000 83000 


310 


(8) 


















































(eq,x,0) 


China=pubcom 























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(9) (i£ £,(8),(4)) 
(10) (wri,fact, ) 
(11) (halt, , ) 
8.1.3 P- 
70 80 Р- Равса! 
Р- (P-machine) P- 
pascal P- P- 
Pascal 
P- 
P- P- 
P- P- 
P- 
P- 1 
8.1.1 8.1.1 
2*а+ (b-3) 
P- 
14с ; load constant 2 
lod a ; load value of variable a 
mpi ; integer multiplication 
lod b ; load value of variable b 
14с з ; load constant 3 
sbi ; integer substraction 
adi ; integer addition 
P- 1ас 2 lod a a 
mpi ) 
(loa bllde 3[] b 3 ( 3 ) sbi 
1 2 adi 
2 
x = y t1 
P- 
lda x ; load address of x 
lod y ; load value of y 


ӨШТЕТ ХОУ 












































311 



























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































14с 1 ; load constant 1 
adi ; add 
sto ; store top to address 
; below top & pop both 
x x sto 
sto 
( ) x:=y+1 x y 
P- (1аа) (1оа) 
Р- 8-1 TINY P- 
8-6 
0000 8-6 0000 8-10 TINYO 0 P-H U 0 
1да x ; load address of x 
rdi ; read an integer, store to 
; address on top of stack (& pop it) 
lod x ; load the value of x 
ldc 0 ; load constant 0 
grt ; pop and compare top two values 
; push Boolean result 
fjp L1 ; pop Boolean value, jump to L1 if false 
14а fact ; load address of fact 
1ас 1 ; load constant 1 
sto ; DOD two values, storing first to 
;: address represented by second 
lab L2 ; definition of label L2 
lda fact ; load address of fact 
lod fact 2 load value of fact 
lod x ; load value of х 
mpi ; multiply 
sto ; store top to address of second & pop 
1да x ; load address of x 
lod x ; load value of x 
Idc 1 ; load constant 1 
sbi р subtract 
sto ; store (as before) 
lod x ; load value of x 
ldc 0 ; load constant 0 
equ ; test for equality 
fjp 12 ; jump to L2 if false 
lod fact ; load value of fact 
wri ; write top of stack & pop 
lab 11 ; definition of label L1 
stp 
8-6 P- P- rdi[] wri 
TINY read|| write rdi P- 
wri 
8-6 lab fjp 
(“ false jump" ) sbi ( ) 
grt ( 0 etu( ) ( ) 



































































































































































































































































































































































































































China-pubecom 























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































stp halt 
1) P- Р- Р- 
Р- 
Р- ( 
“ ” ) 
2) Р- Р- 
( ) Р- 
82 000000000 
8.2.1 
( ) 
6 ( 
) 
Р- С 
exp id = exp | аехр 
aexp— аехр + factor | factor 
Јастог ( exp ) | num| id 
(2) (+)9 ла пит 
strval 
( “ 42" [] пит" xtemp" [] id) 
1) P- P- 
P- sto (Р- 
равса! равса! ) 
(nondestructive store) stn stn[| sto 
stn 8-1 
P- pcode P- 
++ | 
рсоде (х=х+3) +4 
рсоде 
лда х 
104 х 





e 000000000000000 «el eJ 000 х00000000 ell 





























С/Мдаграл 08 





313 





























































































































14с 3 
adi 
stn 
14с 4 
adi 
0 8-1 Р. ППППППППППППГП 

0000 0000 
exp, > id= exp, exp „рсоде = "1да" || id.strval ++ exp,.pcode ++ "stn" 
exp  aexp exp.pcode = aexp.pcode 
aexp, > аехр, + factor aexp,.pcode = aexp,.pcode ++ factor.pcode ++ "adi" 
aexp 2 factor aexp.pcode = factor.pcode 
factor > (exp ) factor.pcode = exp.pcode 
factor > num factor.pcode ="1de"||num.strval 
factor > id factor.pcode = "1lod"||id.strval 
2) [] | 8-2 Ц 

tacode 81000 ++0 000 | || П 













































































































































































































































































newtemp( )| 

















ewtemp COL] 000 (| 























X ul 


ППППП || 








































































































| + 




































































0000 





0 8-2 П000000000000000 








0000 





exp, id = exp, 


exp > аехр 


аехр, > аехр, + factor 


аехр = factor 


factor > (exp) 


factor > num 


factor > id 





























exp аехрП 





аехр— factor 


exp „name = exp,.name 
exp „tacode = exp „tacode ++ id.strval | "="|lexp,.name 
exp.name = aexp.name 
exp.tacode = aexp.tacode 
аехр „пате = newtemp() 
aexp „tacode = aexp,.tacode ++ factor.tacode 

++ aexp,.name|| "=" || aexp,.name 

|| "+"||factor.name 

aexp.name = factor.name 
aexp.tacode = factor.tacode 
factor.name = exp.name 
factor.tacode = exp.tacode 
factor.name = num.strval 
factor.tacode = "" 
factor.name = id.strval 


factor.tacode = "" 





















































| | 











tacode| LU Ll 





























































































































Ur EE EI 






































actor n 
fe ип 





















































tacode|] 














314 













































































(Муагрихсом 




























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































factor> id factor.name Р- 
( we ) 
8-2 (х=х+3) +4 tacode 
tacode 
tl = x+3 
x = tl 
t2 = t1+4 
( newtemp( ) ti ) x=x+3 
( 
) 
) 
( ) 
8.2.2 
( 2 ) 
procedure genCode ( T:treenode ); 
begin 
if T is not nil then 
generate code to prepare for code of left child of T; 
genCode (left child of T ); 
generate code to prepare for code of right child of T; 
genCode (right child of Т); 
generate code to implement the action of Т, 
end; 
( Т ) 
UT ) T 














































































































































































































































































































































































































C 












































typedef enum { Plus, 
typedef enum { OpKind, 


Assign } Optype; 
ConstKind, 


IdKind } NodeKind; 
























































СУ 22049200 315 
EE —  —— — — 


typedef struct streenode 
1 NodeKind kind; 
Optype op; /* used with OpKind */ 
struct streenode *lchild, *rchild; 
int val; /* used with ConstKind */ 
char * strval; 
/* used for identifiers and numbers */ 
) STreeNode; 
typedef STreeNode *SyntaxTree; 






























































(x=x+3) +4 






























































~ 





— 





















































































































































































































































































































































































































































(Ц strva1 ) 
( ) 1 
genCode 8-7[] P- 
СПП sprint£[] [ [] | | 
codestr emitCode P- 
( ) 



















































































































































































































































































































































































0000 8-7 08-11000000Р-00000000000 





void genCode( SyntaxTree t) 
1 char codestr[CODESIZE]; 
/* CODESIZE - max length of 1 line of P-code */ 
if (t != NULL) 
( switch (t-»kind) 
( case OpKind: 
switch (t-»op) 
( case Plus: 
genCode (t-»1child); 
genCode (t-»rchild); 
emitCode ("adi"); 
break; 
case Assign: 
sprintf (codestr,"%s Xs", 
"lda",t->strval); 
emitCode(codestr) ; 
genCode (t-»1child); 





e ППО000000000000000000 strvaig 00 


















































316 С\йг"фиф,омМ 
40 шш am 


emitCode("stn"); 
break; 
default: 
emitCode("Error"); 
break; 
1 
break; 
case ConstKind: 
sprintf (codestr,"%s *g","ldc",t-»strval); 
emitCode(codestr); 
break; 
case IdKind: 
sprintf(codestr,"*s *s","lod",t-»strval); 
emitCode(codestr); 

































































































































































































































































































































































break; 
default: 
emitCode ("Error"); 
break; 
} 
› 
} 
( 
) 8-8 Үасс 8-7 ( 
) 
0000 8-8 0008 10000000 Р-0 00 асс l 
%{ 


#define YYSTYPE char * 
/* make Yacc use strings as values */ 


/* other inclusion code ... */ 
96) 


%token NUM ID 





9696 
ехр : ID 
1 sprintf(codestr,"*s *s","lda",$1); 
emitCode(codestr); ) 
te! exp 
1 emitCode("stn"); } 
aexp 
aexp аехр '*' factor (emitCode("adi");) 


factor 


~ — +» 


factor : '(' exp ')' 
| мом 1 sprintf(codestr,"*s %в","14с",61); 
emitCode(codestr); ) 
| 1р ( sprintf(codestr,"*s *5","lod",$1); 








АӘШТҰТ ХА 


317 












































emitCode(codestr); } 


9696 
/* utility functions ... */ 



































8-2 gen Code 







































































Yacc 






























































8.2.3 













































































































































































































































































































































































































































































































































































(macro expansion) 






























































(static simulation) 































































































































































































































































































































































































(abstract interpretation) ( 


































































































P- ( ) 
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х=х+3)+4 Р- 


























































































































































































































































































































































































































































































































































































































ПП 


| 


















































































































































































































































































































































ШШШ | adil] П | 00010 
tl=x+3 
stn[] | OULUI l 
x=t1 
000 
100 100400: 
аа1 || | | 


= ]^ 


Chinaspubscom 





Y 
= 
3 









































































































































































































































P- 











лда а 


lod b ; or 14с b if b is a const 


lod c ; or 14с c if c is a const 
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14а t1 
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lod t1 
ldc 4 
adi 
sto 
t2 + 
2a Pd Ew 
x = 
x = tl 
t1 
ӘП P- Р- 
Р- 
+1] t2 (t2) 
P- stn sto C 
83 00000000000 
89:1 
( х 1) 
( ) ( ) 
( 
Р- 
1) 
С “ &” “ ж” 2 
x 10 
tl = &x + 10 
*&1 = 2 





© 0000000000 DAGDAG ofa basic Ыосю П 000000000 89300000 
















































































320 Chimashub com 
__ s 




























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































8-4 
AddrMode None|| Address|| Indiredct 
2) P- P- ( 
) 
* ind( ) 
I 
— 
ППППП 00000 
° ixa( ) 
о“ 
єз 
00000 00000 
Р- 1аа ( ) 5 
© 
( 2 x[] 10 ) 
P- 
lda x 
14с 10 
ixa 1 
ldc 2 
sto 
8.3.2 
C 
int a[SIZE]; int i,j; 
а[1+1] = a[j*2] + 3; 
a 1-1 ( ) 
352 а | 
a (base address) ( a ) 













































































































































































































































































































































































e 0000 +хай 000000000000000 Р-000000000000 eai =0000 0000 
0П00000000000Р00000000000000000000000000000 









































Chinaspub COM | 321 
ш — 











0 ( Pascal[] Ada 






































) (scale factor) 






































































































































































































































































































































































































































C а[1+1] о 















































а + (i + 1) * sizeof (int) 



































a[t] 





base. address (a) + (t - lower. bound (a)) * element size (a) 










































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































P- 
a P- &a 
a P- 
lda a 
a P- 
elem-size (a) a © ( 
1) 
t2 = a[t1] 
a[t2] = t1 
( =[1U 115 ) ПО Ц (00 i 
) 
a[i+1] = a (1521 + 3 
tl = j * 2 
t2 = a [t1] 
t3 = t2 + 3 
t4 = i + 1 
a [t5] = t3 
t2 = a [t1] 
( t3[] t4) 
t3 = tl * elem_size (a) 
t4 = &a + t3 
t2 = *t4 





e 0cC000000 00000ə000000000000 
e 0000000000000000 0 



















































































t3 = t2 * elem_size(a) 

t4 = &a + t3 

*t4 = t1 
HUUUUUUUUUUL 

а[ї+1] = а (3521 + 3; 










































































tl = j * 2 


t2 = tl * elem_size(a) 
t3 = &a + t2 
t4 = *t3 


t5 = t4 + 3 
t6 = i + 1 
t7 
t8 = &a + t7 
*t8 = t5 


t6 * elem size (a) 





Chiba-pup.colw 





2) OU P-D | 












































ul Ши ППГГ 





























ШПШШПШШШП 


ind[|[][] 
































| ixa 








100 їхай 








00000 



































(I 





ПП 





ІПП 














00000 

















ПР. 


t2 = а [%1] 


üuul 




















ГА 
Ez] 








lda t2 

lda a 

lod t1 

ixa elem, size(a) 
ind 0 


sto 


























ППШППП 





lda а 

lod t2 

ixa elem, size(a) 
lod t1 

sto 








П ПППППП! 




















а [1+1] = a (113521 +3; 









































Chinaepuh.coM 


14с 1 

adi 

ixa elem_size (a) 
lda a 

lod j 

ldc 2 

mpi 

ixa elem_size (a) 
ind 0 

14с 3 

adi 


sto 












































323 





3) 































































































































































































С 

































































































































































exp — subs = exp | аехр 
aexp — aexp + factor | factor 
factor > (exp ) | пит | subs 


subs  id|id [exp] 



















































































































































































subs 



















































































































































































Subs 

















typedef enum ( Plus, Assign, 




















/* ПППППППППП */ 


Subs ) Optype; 







































































































































































































































































































































































































































































(а11411-2)4а131 











































































































































































































П 
+ 
Ж = k Т 
a[] 2 j 
- 
i 5 
8-9 Р- ( 8-7 ) 
8-7 isAddr 
isAddr TRUE 
(а[1+1]=2) +а [3] [| P- 









































































































































































































































































































































324 Chinaspubscom 
Hr 


lda a 

lod i 

1ас 1 

ааз 

1ха elem_size(a) 
14с 2 

stn 

14а а 

lod j 

1ха elem_size(a) 
ind O 


adi 










































































































































































000089 ПППППППППЯПРЯАЯПППОППЯП 





void genCode( SyntaxTree t, int isAddr) 
( char codestr[CODESIZE]; 
/* CODESIZE = max length of 1 line of P-code */ 
if (t != NULL) 
( switch (t-»kind) 
{ case OpKind: 
switch (t-»op) 
( case Plus: 
if (isAddr) emitCode("Error"); 
else 1 genCode(t-»lchild,FALSE); 
genCode (t->rchild, FALSE); 
emitCode ("adi") ;} 
break; 
case Assign: 
genCode (t-»lchild, TRUE); 
genCode (t-»rchild,FALSE); 
emitCode ("stn"); 
break; 
case Subs: 
sprintf (codestr,"%s *s","lda",t-»strval); 
emitCode (codestr) ; 
genCode (t->1lchild, FALSE) ; 
sprintf (codestr, "*s%s%s", 
"ixa elem size(",t-»strval,")"); 
emitCode (codestr); 
if (!isAddr) emitCode("ind 0"); 
break; 
default: 
emitCode ("Error"); 
break; 
) 
break; 
case ConstKind: 
if (isAddr) emitCode("Error"); 
else 
1 sprintf(codestr,"*s *s","ldc",t-»strval); 
emitCode(codestr) ; 
} 












































СМрачрир«соћ 325 
[I] —— СББ 


break; 
case IdKind: 
if (isAddr) 
sprintf (codestr, "%s %s","lda",t->strval); 
else 
sprintf (codestr,"%s %s","lod",t->strval); 
emitCode (codestr) ; 

























































































































































































break; 
default: 
emitCode("Error") ; 
break; 
} 
} 
} 
4) 
С ( ) 


































































































int a[15][10] ; 
























































































































































































































































































































































































































































8.3.3 
































































































































































































































































































































































































































typedef struct rec 
1 int а; 
char c; 
int j ; 
) Rei; 


Rec x; 













































































































































































































































































































































































326 Chinaspub.com 
шинийн... 




































































( ) Ш (x.i) 






































































































































































































































| field offset 




















1 2 field offset (x, 3) x.j 









































































































































field offset 
































































































































































































































































































































































































































































































































t1 









































tl = ах + field offset (х,3) 
















































































м 
u 
! 
x 
H 
















































































tl = &x + field offset (х,3) 
t2 = &x + field offset (x,i) 










































































































































































































































































*tl - *t2 
X C 

int * x; 

i C 
*x = i; 
*x = i 
і = хх, 
i-*x 




























































































































































































































































































typedef struct treeNode 
( int val; 
struct treeNode * lchild, * rchild; 


) TreeNode; 


TreeNode *p; 










































































p -> lchild = p; 
Р ЕР -> rchild; 


Chinaepuh.coM 19 327 






























































| А ЕДИ ВАЛА БАШ ШАПА 


tl = p + field offset ( *p, lchild ) 
*tl = p 





t2 = p + field offset ( *p, rchild ) 
p = *t2 


200000000 P-00 00000! 















































000х000 хЈ0 | 

















000! 








0 | 











ПОР-П 
14а х 
lod field offset (x,j) 











ixa 1 
ПППП 
х.ј=х.і; 
О0000000Р-00 


lda x 
lod field offset (х, ј) 






































ixa 1 

lda x 

ind field offset (x,i) 
sto 


[] [] ind ПП| хАПППП 000000 
10000 D int *)0 | 



















































































































































































ПППРПППП 
































ПІ 





a 











00000! 


р -» lchild = р, 














р = p -> rchild; 


ППП(ОПППРПИППОП | Ú] P-| 


lod p 
lod field_offset ( *p, lchild ) 


ixa 1 




































































lod p 
sto 


328 


















































14а р 
lod р 


ind field offset 


sto 


( *p, rchild ) 


Chinaspuf.cot 










































































P- 








































































































84 ППППППППППППППП 




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































while break 
(0 goto[] П) 
repeat (П do-while JL] for case (O switch ) 
switch (jump table) 
2 Р- === 
2 
if[] while Р- 
8.4.1 if[] while 
if[] while ( C 
) 
if-stmt > if (exp) stmt | if (exp) stmt else stmt 
while-stmt —^ while ( exp ) stmt 
8- 8-2 
(П 8-1 else ( 
else ) —— 
8-2 
(П if-false..goto ) 8-6[] P- 
(П Ејр ) goto 
P- ujp (П ) 
1) L1[] L2... 








































































































































































































if (E) Slelse S2 




































































«code to evaluat& to tl» 
if false tl goto L1 


«code Ёог$/> 


Chinaepubecom 


#00000 








ТВОЕПППППП 


FALSH] 00000 


#000000 





0 8-1 000000000 


goto L2 
label L1 
«code forS2> 
label L2 


0000 ће 





while (E ) 5 









































ПИГ 0 0 00 0! 


1аре1 11 
«code to evaluaté to 61» 
if false tl goto L2 














«code forS> 
goto L1 
label L2 


2 00000Р-00 0000 


if (Е) SI else 52 





















































| ПШПШ PIU U| 
«code to evaluat&> 
fjp L1 


«code forS/> 
ujp L2 





E 329 










































while OOOO 


П 
while [] O0 Ü 
| whie-0 00000 |. 


0 8-2 мше 00000000 











330 















































lab 11 
<code forS2> 
lab 12 




































































lab L1 

«code to evaluat&» 
fjp L2 

«code forS> 

ujp L1 

lab L2 


China=pubcom 































































































(exit label) 











































































































С break 





















































switch 

























































































































































































































































































































































































































































































8.4.2 































































































































































































































































































































































































































































































1280 0) 


























































































































































































































nop 















































8.4.3 


















































































































































and 








Р- 













































































































































































































































































































































































China-pubecom 




















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































true fasle 

апап ог < 

00 1 0 

(short circuit) 
a false 
a and b b 
aor b b 
2 

if ((P!=NULL) 88 ( p->val==0) ) 

Р р->уа1 

1 
a and b = if a then b else false 
a or b =if a then true else b 
2 
( (x!=0) && (үзэх) Р- 
lod 
1ас 0 
пеа 
£jp 11 
lod y 
lod x 
equ 
ujp L2 
lab L1 
lod FALSE 
lab 12 
8.4.4 if[] while[] П | ІШ 
stmt — if-stmt | while-stmt | break | other 
if-stmt > if(exp) stmt | if(exp) stmt else stmt 
while-stmt > while ( exp ) stmt 
exp > true | false 
other ( ) 
true|| false break 
break 













































































































































































С 





























































































































typedef enum | ExpKind,IfKind, 


WhileKind, BreakKind, 


OtherKind ) NodeKind; 






































332 


typedef struct streenode 
{ NodeKind kind; 















































struct streenode * child[3] ; 


int val; /* used with ExpKind */ 


) STreeNode; 
typedef STreeNode * SyntaxTree; 


China=pubcom 





















































1 3 (1 
























































else 














































































































(| val 1[] 0 ) 



































































































































тий 





Вэ 


if (true) while (true) if (false) Dbreak else other 


false break other 





























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































© 
typedef P- 8- 
10 
emitCode ( 
) (U ni[] L2[] 13...) genLabel 
genCode break 
while break 
while (П gencode while 
break ) 
Lab1[] Lab2 (0) 
other] P- “ Other” 
0000 8-10 00000000000 

















void genCode( SyntaxTree t, char * label) 
1 char codestr [CODESIZE]; 
char * 1ар1, * lab2; 
if (t != NULL) switch (t->kind) 
( case ExpKind: 
if (t->val==0) emitCode("ldc false"); 
else emitCode("ldc true"); 
break; 
case IfKind: 
genCode (t-»child[0],label); 
labi - genLabel(); 
sprintf(codestr,"*s *s","fjp",lab1); 





e 0000000000 * 0000” 0000000000000000000 











China=pubstom 












































emitCode(codestr) ; 

genCode (t->child[1], label) ; 

if (t-»child[2] != NULL) 

1 lab2 = genLabel(); 
sprintf (codestr,"%s %s","ujp", lab2); 
emitCode(codestr);] 

sprintf(codestr,"9*s 9*s","lab",lab1); 

emitCode (codestr); 

if (t-»child[2] != NULL) 

1 genCode(t-»child[2],1abel); 
sprintf(codestr,"*s *s","lab",lab2); 
emitCode (codestr) ;} 

break; 


case WhileKind: 


labl = genLabel(); 

sprintf (codestr,"%*s *s","lab",labl); 
emitCode(codestr); 

genCode (t-»child[0],1label); 

lab2 = genLabel(); 
Sprintf(codestr,"*s *s","fjp",lab2); 
emitCode(codestr); 

genCode (t-»child[1],1ab2); 

sprintf (codestr,"%s *s","ujp",lab1); 
emitCode (codestr) ; 

sprintf (codestr,"%s *s","lab",lab2); 
emitCode (codestr); 

break; 


case BreakKind: 


sprintf(codestr,"*s *s","ujp",label); 
emitCode (codestr); 
break; 


case OtherKind: 


emitCode ("Other"); 
break; 


default: 


emitCode ("Error"); 
break; 


333 








8-10 



































































































































(true) while (true) if (false) break else 










































































other 





334 


Other 


lab 
ujp 
lab 
lab 


L5 
L2 
L3 
L1 


















































85 111101 000000 0 Г 


Chinaspub.com 

































































































































































































































































































































































8.51 [] 

















ПП 



























































































































































(definition) ( 















































(declaration)) 


























(call) Š 




























































































































































































(calling 


sequence) 
















































































































































































(entry point) 



























































































































































(return point) 











Entry instruction 


<code for the function body> 


Return instruction 



















































































































































































































































































































































































Begin-argument-computation instruction 


<code to compute the arguments> 


Call instruction 








































































































































































































































































































































































































label 














































































































entry 











e 000000 
000000 


00000 





ПП 


ПОС 





ПП 








ПОС 


ПП 





ПП 


ППП 








ПОС 


ПП 





ПП 


0000000000 




















0000000000 


ПОС 








ПОС 


ПП 





ПП 








П00000000000 




















000000000 


ПП 




















Chihaspub«toM 



































335 





















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































8 
return 
C | 
int f ( int x, int y ) 
{ return x + y + 1; } 
entry f 
tl = x + y 
t2 = tl + 1 
return t2 
3 begin_ 
args( ) arg ( 
) call 
( ) 
f С 
Е ( 243, 4) 
begin args 
tl = 2 + 3 
arg t1 
arg 4 
call f 
7.3.1) 
2) Р- Р- ent ret C Е 
Р- 
ent f 
lod x 
lod 
adi 
14с 1 
adi 
ret 
ret P 
P- mst cup mst М Ы 
begin-args g d 
“ ” P- cup “ ” 
call P- —— cup 
csp ( ) pascal sin[] abs (C 
) ( 





























































































































csp 










































































(Муагрифхсом 
























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































typedef enum 
(PrgK, FnK, ParamK, PlusK, CallK, ConstK, так} 
NodeKind; 
typedef struct streenode 
( NodeKind kind; 
struct streenode *lchild,*rchild, 
*sibling; 


char * name; /* used with FnK,ParamK,Callk,IdK */ 


int val; /* used with ConstK */ 
} StreeNode; 
typedef StreeNode * SyntaxTree; 


arg P- cup 
( ) 
( ) 
ғ С £(2+3,4)0 000 P- 

mst 
14с 2 
14с 
adi 
14с 4 
cup 

) 

8.5.2 ПП Ц 
00000 UOUUUU 000 
program — decl-list exp 
decl-list => decl-list decl | € 
decl > £n id ( param-list ) = exp 
param-list > param-list, id|id 
exp = exp + exp | call | num | id 
call > id ( arg-list ) 
arg-list > arg-list, exp | exp 
1 001 100 < 
fn Ё(х)-24х 
fn с(х,у)=Ё(х)+у 
(3,4) 
g g f 
Ц ПОООООООО c | 





7 

































































PrgK 


































































































































































































































































































FnK 
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8 337 












































































































































































































































































































































































































































































































































































































































































































































































































































ЕПК 
ParamK FnK 
CallK 
8-3 
/ 
( ) 
PrgK 
FnK FnK CallK 
РагашК PlusK paramK ParamK PlusK ConstK ConstK 
х Ж “хо х — y РА N 3 — 4 
ConstK ` так са11к так 
2 х £ N Ү 
так 
х 
0 8-3 0000000000 
Р- 8-11 
PrgK Idk|| ConstK|| PlusK| 






































































































































































































































0000 8-11 00000000000000 





void genCode( SyntaxTree t) 
( char codestr[CODESIZE]; 
SyntaxTree p; 
if (t != NULL) 
Switch (t-»kind) 
( case PrgK: 
p = t-»lchild; 
while (p != NULL) 
1 депсоде (p): 
p = p-»sibling:; ) 
genCode (t-»rchild); 
break; 
case FnK: 
sprint£(codestr,"%s *g","ent",t-»name); 
emitCode (codestr); 
genCode (t-»rchild); 
emitCode("ret"); 
break; 
case ParamK: /* no actions */ 
break; 
case ConstK: 
sprintf (codestr,"%s *d","ldc",t-»val); 
emitCode (codestr) ; 


















































338 Chinaspub.com 
--122--------111 


break; 

case PlusK: 
genCode(t-»1child); 
genCode(t-»rchild); 
emitCode("adi"); 
break; 

case так: 
Sprintf(codestr,"*s %s","lod",t->name); 
emitCode (codestr); 
break; 

case Са11К: 
emitCode("mst"); 
p = t-»rchild; 
while (p!=NULL) 
{ genCode (p); 

р = p-»sibling; ) 
sprintf (codestr,"%s *g","Cup",t-»name); 
emitCode (codestr) ; 
break; 

default: 
emitCode ("Error"); 
break; 




















FnK[] ParamK[] Са11К FnK ent[] ret ( 









































































































































































































































ПП 9 8-11 ParamK 
FnK ParamK 































































































































































































































































































Са11К mst 












































































































































cup 




































































8-11| Р- 

































































































































































8-3 











ent Ё 
14с 2 
104 х 
ааз 
ret 
ent g 
mst 
lod x 
cup f 
lod y 
adi 
ret 


mst 





e П0000000000000000000000000000000000000000000000 
00000 


СМрачриђ«соћ 
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8 
14с з 
14с 4 
сар ч 
86 (01000 0 0 000000 01000010 
( ) 1 Borland 
80x 86 3.00 C Sun SparcStation[] 2.0[] С 
Р- 
© 
TINY TINY 
8.6.1 ПП 80x 86[] Borland 3.0[] C 
8.2.1 
(x=x+3)+4 
x 
Borland 3.0 C Intel 80Х 86 
mov ax, word ptr [bp-2] 
add ax, 3 
mov word ptr [bp-2], ax 
add ax, 4 
ax x bp-2 
bp ( ) 
1 x ax|[| ( [bp-2] ) 
2 3 x 4 4 
ax 
3 x ([] P- Ida) 
1) С 
(a[i+1]=2)+a[3] 
( “ ” ) i 3 a 
int 1,3; 
int a[10]; 
Borland C ( 
) 
(1) mov bx,word ptr [bp-2] 
(2) shl ьх,1 
(3) 1еа ax, word ptr [bp-22] 





e ППППППППППППППППП 


















































340 China-pub.toM 
_ е — ÀJ 










































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(4) add bx,ax 
(5) mov ax,2 
(6) mov word ptr [bx],ax 
(7) mov bx,word ptr [bp-4] 
(8) shl ьх,1 
(9) lea dx,word ptr [bp-24] 
(10) add bx, dx 
(11) add ax,word ptr [bx] 
2 bp-2[] i Ьр-4 Ц 
bp-24 (24 = x 2 131314 ) 
1 рх 2 2( ) ЗП a ах (lea 
) i+1 1 2 
address (а[1+1]) = base address (a) + (i+1)*elem_size (а) 
= (base address (a) + elem size (а))  i*elem size (a) 
4 а[1+1] Бх 5 2 ах 6 
а[1+1] 70 3 ьх 8 2 П a dx 
10 а131 ьх 11 ах 
ах 
2) ШИГ 
typedef struct rec 
( int i; 
char c; 
int j; 
1 Rec; 
typedef struct treeNode 
( int val; 
struct treeNode * lchild, * rchild; 
) TreeNode; 
Rec x; 
TreeNode *p; 
хир 
80х 86 2, 1 
© 
"Dn" 2 х] 5 pọ 2 
x bp-6 ( | | 
Эр si Rec 
O +0 00 e 213 3 val lchild 
2[] rchild 













































































© 80х86ППППППППППППППП4ПППП 





ШТ 5 



















































































341 
















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































| Ц 
тоу ax,word ptr [bp-6] 
mov word ptr [bp-3],ax 
1 x.i ахї11 20 0 | х. (- 
б+3=- 3) 
р->1 child = p; 
mov word ptr (51421, 51 
| | 
P = p->rchild; 
mov si, word ptr [si+4] 
3) iff] while|[] | Barland C 
if (х>у) ytt;else x--; 
while (x«y) y -= x; 
x|] yU | 
Borland C П if 80x 86 bx y 
П dx[] 
стр bx,dx 
jle short (01086 
inc dx 
jmp short (010114 
@1@86: 
аес bx 
@1@114: 
8-1 | x<y 
Borland C while[] П Ul 
jmp short (010170 
810142: 
sub dx,bx 
@1@170: 
стр bx, ах 
31 short @1@142 
u ПП 8-2 i | i І Ц 
400 р ППСПП! 
int Ё( int х, int y) 


| return хғуЧ41) 


342 










































































































































































































































































China=pubcom 





























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































ПППП 
00000 bpd 





| ПППППП 


£(2+3, 4) 
( 8.5.1 ) 
Borland Е (2+3, 4) 
тоу ах, 4 
push ах 
шоу ах, 5 
push ах 
call near ріг Ё 
рор сх 
рор сх 
u 4 5( 5=2+3 
20 | 
рор 1 ( сх П 
E C near 
ptr ( 2 ) 80x 86 call 
( ret ) 
Borland С 
et proc near 
push bp 
mov bp,sp 
mov ах, мога ptr [bp-*4] 
add ах, мога ptr [bp-*6] 
inc ax 
jmp short @1@58 
810858: 
рор рр 
кес 
_f endp 
2 3 
(bp) bp sp 
ППғПП 
0000 





СМдагрих20М 





























343 





















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































8 
(ПП bp) | са11 рр 
bp+2( | 2 ) х[| bp+4 ҮП bp+6[] £ 
mov ах, мога ptr [bp+4] 
add ax,word ptr [bp+6] 
inc ax 
| x ax ҮП ах!| [| ах|| 1 
( 
return ) bp ax 
8.6.2 Sun SparcStation[] Sun 2.0 СП | 
(х=х+3)+4 
х 
Sun C Borland 
1а [%fp+-0x4],%o1 
add %01,0х3,%о01 
st $01, [%Ер+—0х4] 
1а [%®Ёр+-0х4],%о2 
ааа $02, 0х4, %03 
| 000 Ох (х= | 0x4 
4( ) 1 х ( fp-4 4 O) 
019] ( Intel 80X 86 )[] 2 
3 o1 [] 3 о111Ї| x x o2000 9 
4 о3 
1) р 
(а[1+1]=2) +а[3] 
| [] Sun ( JL] 
(1) add %Ер, -Ох2с, %01 
(2) 1а [%Ер+-0х4], %02 
(3) sll $02,0x2,%03 
(4) mov 0x2,%04 
(5) st $04, [%01+%03] 
(6) add %Ер,-0х30,%о5 
(7) 1d [%#р+-0х8], %07 
(8) 511 %о7,0х2,%10 
(9) 1а [%о5+%10],%11 


e П SparcStatin O0 0000000000000000000000000000“ 00000 "0000 
00000000000000000000000000000000000000 O 8.50 00000 


0000000000000000000 
e 000000000 Boran) 0000000000000 8900 





344 















































Chinaspuf.cot 







































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(10) mov 0х2,512 
(11) add %12,%11,%13 
4 i fp-4 ( 
%Ер+-0х4)[ j fp-8 (%Ёр+-0х8) a Ер-48 ( 48 
= 30 %Ёр+-0х30) Ша o1[] 
1+1 1 4 ( Borland ) (2c hex = 44 = 48 - 4) 2] + 
о2 3[] o3 4( 211) о3 4 2 о4 
5 a[i+1] 611 Па o5 j o7 
8 4 10 90 а131 11 10 2 
12 11 ( ) 13 
2) Sun ( 8.6.1 г " ) 
4 1 4 
( ) 4 x[] [] 12 р 4 if] «13 
01418 val[] Ісһі14|| rchild x 
pl] x fp-0xc (hex c=12)[] p fp-0x10 (hex 10=16) 
х.ј -x.i; 
1а [%#р+-0хс], %о1 
st %ol, [%Ер+-0х4] 
x. i о1 x.j( x.j = 1248-4 
) 
p->lchild=p; 
ld [%fp+-0x10], $02 
ld [%fp+-0x10], $03 
st %03, [%02+0x4] 
р o2[] o3 (02) p->lchild 
р = p-»rchild; 
1а [5#р+-0х10], %04 
1а [%о4 +0х8],%о5 
st %о5,[%Ёр+-0х10] 
р о4|| p->rchild 
Р 
3) Ifl] While Borland Sun SparcStation C| 
if (х>у) у++; else x--; 









































Chinaspubscom F 345 
п 



















































































































































































































































































































































































П 
while (х<у) y -= x; 
x[] vU LI D U Í | 
Sun SparcStation[] O O [] ifl] Ú] ПППП хПу 0001 1000-40 - 80 
1а [%Ер+-0х4], 302 
1а [%Ер+-0х8], %03 
стр %02, %03 
bg I16 
nop 
b L15 
nop 
L16: 
1а [$fp*-0x8],5$04 
add %o4,0x1,%o4 
st %o4,[ %fp+-0x8] 
b L17 
nop 
L15: 
1а [$fp*-0x4],$05 
sub %05,0х1,%05 
st %о5, [ %Ер+-0х4] 
117: 
000 порППППППППППП 0000 ӛраеППППП 00000000 000 
IO UI ) 8-100 П | 
бип while 
1а [%Ер+-0х4], %07 
1а І5Ер%-0х81,%10 
стр %07,%10 
bl L21 
nop 
b L20 
nop 
L21: 
118: 
1а [%Ер+-0х4], %11 
1а [фЕр+—0х8],%12 
sub %12,%11,%12 
st %12,[ %Ер+-0х8] 
1а [%Ер+-0х4], %13 
1а [фЕр+—0х8],%14 
стр 513,514 
bl L18 
nop 
b L22 
nop 
L22: 
L20: 























ПППППП ПП П  П 0000 0 Волам ПО U D UD UE U DE D LI U LI U 































































































China-pub.cotw 


















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































“00000” 000 122) | Ц 
40000 
int f ( int x, int у) 
1 return х+у+1; | 
f (243,4) 
Sun 
mov 0х5, $00 
mov Ox4, $01 
call «Ж, 2 
Ц ЕЦ | Ц 
ui 24 
!#PROLOGUE# 0 
sethi $hi(LF62),$gl 
add $gl,$10(LF62),$gl 
save %sp,%gl,%sp 
!#PROLOGUE# 1 
st %i0, [%Ер+0х44] 
st %11, [%Ёр+0х48] 
L64: 
.seg "text" 
1а [bfp+0x44], %00 
ld [bfp+0x48] ,%o1 
add $00, %01, %00 
add $00, 0х1, %00 
b LE62 
nop 
LF62: 
mov %00,%10 
ret 
restore 
| 000 ооо || || 
2 П П П П 
П “о” (0 о11о21111 51 П (00 100 il) 
(0 “ 1” “ o” )9 
Е (П 4PROLOGUE£[] ) 
П ПП ПП П ( “ 1" | | ПІ П “ o” 
000000000000 0! ПП +9001 ПОП ооПГП) 
8.7 ТМПППППППП 
| | TINY 000 000 | 
e 00000“ о" ПП“ euput"[ i” O0“ шри ППППППППППППППП Зра 000000 








П (register window) 0000 






































Chiha-pub.coM 







































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































TM(Tiny Machine) C TM 
C TINY TM 
П С П С П TM 
П П 0) 
8.7.1 Tiny Machine 
TM Ц H $10 Ц uui Ц 0 
7 С 
#define IADDR_SIZE 
/* size of instruction memory */ 
#define DADDR, SIZE... 
/* size of data memory */ 
#define NO REGS 8 /* number of registers */ 
#define PC, REG 7 
Instruction iMem[IADDR, SIZE]; 
int dMem[DADDR, SIZE]; 
int reg[NO, REGS]; 
TM | | 
do 
/* fetch */ 
current Instruction = iMem [reg[pcRegNo]++]; 
/* execute current instruction */ 
while (!(halt||error)); 
Tiny Machine 0 ( 
DADDR_SIZE-1) dMem[0] ( П П 
ТМПОП TM iMem[0] HALT 
| ІМЕМ ERR ([] | | reg[PC, REG]« 0 
reg [PC_REG] > IADDR, SIZE[|) DMEM ERR[] ZERO-DIV| 
[] 8-12 TMU П [ [] 






















































































































































































RO 


















































RM 




























































































opcode r, s, t 


ПППП 8-12 Ting Machine LH] LH UD Ú 





RO [I 


ПП 
000 
HALT 
IN 
OUT 


П 


орсо4е r,s,t 


ПП 


0000 (00000) 


regiz]“ 00000000 (=0 =00) 


regir] > 0000 (80 #010) 







































































Chinaspubeom 
















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































ADD reg[r] = regis] + regt] 
SUB reg[r] = reg] - regit] 
MUL reg[r] = reg[s] * regit] 
DIV reg[r] = regis] / геа І(П 000 ZERO_DIv) 
RMOD 
ПП opcode r,d(s) 
(ага+кед [5]; П ПП dmem[a]{] 0 0 О а<ОП a= DADDR-S1ZE{] [] | DMEM-ERR) 
000 00 
LD reg[r] = dMemB](] a0 (ПОП = 
LDA regir] = a ШПП аПППП =) 
LDC regir] = а (ПОП 4000 z 00 2) 
ST dMem[a] = кед[к]([] =] 000004 
JLT if (reg Е1<0) reg [PC REG] за (ПП ППППП а00000) 
JLE if (reg Е]<=0 reg [PC REG] = 
JGE if (reg Е]>0) reg [PC REG] = 
JGT if (reg Е]>0) reg [PC, REG] = 
ТЕО if (reg Е]==0) reg [PC, REG] = 
JNE if (reg Е]!=0) reg [PC, REG] = 
r[] s[] t OO ¢ ) 30 | 
| | | / 

opcode r,d(s) 

r|] s ( ) 4 

1 2 а a=d+reg[s] 
a (OS a[] DADDR, SIZE) a 
DMEM ERR 
RM 3 3 k "(ре)" u 
(LDA)[] “ " (03111 1 П 6 
RD[] RM 3 
Lu uui (RO[] RM) П о 
8-12 TM TM pc 
(0 0 320 fp) TM 

( ) 
1) ІМ 80Х 86 

Sun SparcStation 
































































































































































































































e ПП000000000000000000000000 


Слаид 08 
































349 



























































































































































Sun Sparc Station[] RISC 












































TM 8 














320 ° 














TM 































































































































































































































































































LD#1 























LD 


ба 







































































LD 














LDA| 





























































































































































































































































































































рс LDA 

























































































а = d + reg[s] 











б) 


















































































































































LD 












































LD 7,0 


(1) 




























































































7) 




















(JLT 





















































pc 












































JEQ 0,4(7) 











TM 
























































































































































рс 
























































рс 








LDA| 





















































LDA 7,-4(7) 

































































8) 








JSUB 












































LD 7,D(S) 













































































dMem[d-*reg[s]l] 



























































) 























8.7.2 ТМ| 








reg[0]( 
































































































































































































































































































































TM 
































































































































































































































































































































































































































































































































8-1[] TINY 

















8-13 























HALT 


























TMD 











ПОС 


























0П00000000000000000 








00 











0000000000 











00000000 





























Chiha-pub.coN 




























































































ППШПП HALT | 











































































































—— 1000000 


















































ПППП 8-13 0000000 





* This program inputs ап integer, computes 


* its factorial if it is positive, 


* and prints the result 




















































































































































































































































































































































































































































































































































































































































































































































































































































































































tm fact 


TM simulation ( enter h for help ) 


Enter command: g 


Enter value for IN instruction: 7 


OUT instruction prints: 
HALT: 0, 0, 0 

Halted 

Enter command: q 


Simulation done 


5040 


0: IN 0, 0, 0 ко = read 
1: JLE 0, 6 (7) if 0 < r0 then 
2: LDC 1,1,0 rl = 1 
3: LDC 2, 1, 0 r2=1 
* repeat 
4: MUL 1, 1, rl = rl*r0 
5: SUB 0, 0, rO = г0-г2 
6: JNE 0, -3 (7) until r0 == 0 
7: OUT 1, 0, 0 write r1 
8: HALT 0, 0, 0 halt 
* end of program 
| OOOO 8-1300 Ц | ПП “ПП 
Ё TM 
[] TM | Ц Hd EE IHE I 
Ц Ц Ц Ц Ц 8-13 
0: ІМ 0,0,0 
2: LDC 1,1,0 
3: LDC 2,1,0 
4: MUL 1,1,0 
5: SUB 0,0,2 
6: JNE 0,-3(7) 
7: ООТ 1,0,0 
1: JLE 0,6(7) 
8: HALT 0,0,0 
О | uui | 1 Ц 
8-13 Басе. т 
D HU D D TM ІП . tm) 














China=pubecom 























351 













































































рс 


















































0) 




















HALT 




















































































































































































































Commands are: 


s(tep 
g(o 
r(egs 


<п> 


Execute п 


print the contents of the registers 


( default 1 ) 
Execute TM instructions until HALT 





TM instructions 


i(Mem «b «n»»Print n iMem locations strarting at b 


d(Mem «b «n»»Print n dMem locations strarting at b 













































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































t (race Toggle instructions trace 
p(rint Toggle print of total instructions executed ('go' only) 
с(1еаг Reset simulator for new execution of program 
һ(е1р Cause this list of commands to printed 
q(uit Terminate the simulation 
( ) 
< > 
8.8 ТМҮПППППППП 
TINY TINY 
3 6 7 
TINY TM 
TINY TM TINY 
8.8.1 TINY TM 
TM code.h || соде.с 
B 1600 1685 1700 1796 
TM 
code .c 
iMem TM 
code .c 
code.h (1612[] 1617 
1623[] 1626[] 1629[] ) рс TINY 
( ) 
TINY ( fp)( ) 
TM LD 
mp( Ж gp( ) 
mp gp 
0 gp 
х|| у dMem 





















































































































































































































































352 





























































































































0000 




















Chimashub Cow 







































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































0 
dMem 
t1 0 (mp) [| t2[] -1 (mp) [] x 0 (gp) yl| 1(gp) 
gp 5[] mp 6 
00 1 ü Е ас] acl 
ас 2 4 ( 
1) 
7 code.h TraceCode 
emitComment 
emitRO|| emitRM RO[] RM 3 
1 TraceCode ) 
3 emitSkip 
code .c emitSkip(1) 
emitSkip (0) 
emitBackup 

emitRestore emitBackup 

emitBackup(savedLoc) ; 

/* generate backpatched jump instruction here */ 

emitRestore() ; 

(emitRM Abs) emitSkip 
рс 1( рс 
) рс 
JEQ LDA|! pc 
TINY TINY 

8.8.2 TINY П 

TINY cgen.c TINY CodeGen 

void CodeGen (void); 

cgen.h B cgen.c 1900 
2111 
CodeGen (O 2095 211111) ( 











































































































С/даграфл 08 










































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(standard prelude)) cGen 
HALT 1 mp (TM 
000 2 e gp 0) 
cGen([] 2070 20841 ) | 
TINY 
typedef enum ( StmtK, ExpK ) NodeKind; 
typedef enum { ТЁК, RepeatK, AssignK, ReadK, WriteK } StmtKind; 
typedef enum ( OpK, ConstK, Так ) ExpKind; 
#define MAXCHILDREN 3 
typedef struct treeNode 
( struct treeNode * child[MAXCHILDREN] ; 
struct treeNode * sibling; 
int lineno; 
NodeKind nodekind; 
union ( StmtKind stmt; ExpKind exp; ) kind; 
union ( TokenType op; 
int val; 
char * name; ) attr; 
ExpType type; 
) TreeNode; 
| TINY 
Gf[] repeat[] read[] write) | ( 
) cGen ( ) 
genStmt|| genExp ( 
) 
genStmt([] 1924 1994[] ) switch 
cGen|[| genExp ([] 1997 2065[] ) 
ac ( read 
) 
loc = lookup(tree-»attr.name); 
loc 8p 
( 
2021 202711 ) 
cGen(pl); /* р1 = left child */ 
emitRM("ST",ac,tmpOffset--,mp,"op: push left"); 
cGen(p2); /* p2 = right child */ 
emitRM("LD",acl,++tmpOffset,mp,"op: load left"); 
tmpOffset ([] mp 
) tmpOffset tmpOffset 
Š d emi ЕВМ 
1(acl) O(ac) RO 





































































































































































































354 















































(Муагрихсом 


























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































TINY ( 
1 while 
/ 020 10) C 
00 1 ac 
1 
0 
SUB 0,1,0 
JLT 0,2(7) 
LDC 0,0(0) 
LDA 7,1(7) 
LDC 0,1(0) 
1 0 < 
JLT 0,2(7) 1 ас < 
4 0 ас ( TM LDA pc 
) 
if- (O 1930 19541] ) TINY 
ifl 1 
0 ac 1 2ЕО||1 else 
then emitSkip 
savedLocl = emitSkip(1) ; 
1 Шеп else 
savedLoc2 = emitSkip(1) ; 
else 
savedLocl 
currentLoc = emitSkip (0) ; 


emitBack up (savedLocl) 


emitRM_Abs ("JEQ",ac,currentLoc, "if: 


emitRestors() ; 





, 


jmp to else") 





emitSkip (0) 


























































































































emitRM Abs 















































































































































































































































































































































































































































































































































рс ЧЕО else 
(LDA) savedLoc2 
8.8.3 TINY] [] ТМП | 
TINY TM NO_PARSE 
NO ANALYZE||NO CODE .tm ( 
TM TM sample.tny 






































































































































































































































China=pubecom 


tiny sample 

















355 





























«listing produced on the standard output» 


tm 


sample 


«execution of the tm simulator» 














TraceCode globals.h||Í| 














main.c 

































































































































































































































































































































































TM ПО 
































8-14 








8-1 





TraceCode = TRUE 
























































42 







































































































































































































































































8-14 









































































































































































































































































































































16: 
17: 
18: 
19: 


LD 
ST 
LD 
LD 


0,1(5) load id value 
0,0(6) op: push left 
0,0(5) load id value 
1,0(6) op: load left 










































































LD 
LD 


1,1(5) 
0,0(5) 


load id value 


load id value 


































































































































































































7,0(7) jmp to end 





NOP( “ ” ) 






























































8-14 

















































































































































































































































































































TINY 





































































































00008-14 0000 8-10 











ПППППП 





ОО 





TINY Compilation to ТМ Code 


File: sample.tm 


Standard prelude: 


0: 
1: 


10 6,0(0) load maxaddress from location 0 


ST 0,0(0) clear location 0 


End of standard prelude. 


2: 


IN 0,0,0 read integer value 


ж -> 


Ж repeat: 


ж -> 


* -> 






































ST 
if 
Ор 
Const 
LDC 
Const 
ST 
Id 
LD 
Id 
LD 
SUB 
JLT 
LDC 
LDA 
LDC 


Ор 


0,0(5) 


0,0(0) 


0,0(6) 


0,0(5) 


1,0(6) 
0,1,0 

0,2(7) 
0,0(0) 
7,1(7) 
0,1(0) 


China=pubecom 


read: store value 


load const 


op: push left 


load id value 


op: load left 
op < 

br if true 
false case 
unconditional 


true case 


jump to else belongs here 


assign 
Const 
LDC 
Const 
ST 
assign 


repeat 


0,1(0) 


0,1(5) 


assign 
Ор 
та 
LD 0,1(5) 
та 
ST 0,0(6) 
та 
LD 0,0(5) 
та 
LD 1,0(6) 
MUL 0,1,0 
Ор 
5Т 0,1(5) 
assign 
assign 
op 
Id 
LD 0,0(5) 
Id 
5т 0,0(6) 
Const 
LDC 0,1(0) 
Const 
LD 1,0(6) 


SUB 0,1,0 


load const 


assign: store 


load id value 


op: push left 


load id value 


op: load left 
op * 


assign: store 


load id value 


op: push left 


load const 


op: load left 
ор - 


jmp 


value 


jump after body comes back here 


value 


Слайд 08 












































assign: store value 


load id value 

op: push left 
load const 

op: load left 
op = = 

br if true 

false case 
unconditional jmp 


true case 


repeat: jmp back to body 


load id value 


write ac 


if: jmp to else 


* <- Op 
27: ST 0,0(5) 
Ж <- assign 
х -> Op 
ж -> Id 
28: LD 0,0(5) 
* <- 14 
29: ST 0,0(6) 
х -> Const 
30: LDC 0,0(0) 
* <- Const 
31: LD 1,0(6) 
32: SUB 0,1,0 
33: JEQ 0,2(7) 
34: ьрс 0,0(0) 
35: LDA 7,1(7) 
36: LDC 0,1(0) 
* <- Op 
37: JEQ 0,-22(7) 
Ж <- repeat 
ж -> Id 
38: LD 0,1(5) 
ж <- Id 
39: OUT 0,0,0 
* if: jump to end belongs here 
13: JEQ 0,27(7) 
40: LDA 7,0(7) 


* «— if 
* End of execution. 
41: HALT 0,0,0 


jmp to end 


357 





89 00000000 





50 1 





























































































































































































































































































































































































































improve transformation) 












































(code optimization techniques) 











































































































































































































































































































































































































































































































































































































358 Chinaspubcom 
шинийн... 














































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































3 
( ) 
( ) 
TINY 
8.9.1 
1) 
—— 8 16 pel] sp[] fp 
( (register spill) ) ( RISC ) 
( 0) 32[] 64[] 128 
2) 2 
1 ( (common subexpression 
elimination)) © ( 
) 
(unreachable) (dead code) 

#define DEBUG O 

if (DEBIG) 

КТІ! 

DEBUG 0( ) 1 

i ( 
) 


























































































































































































































































































































































































































































































































































































































e ПП00000000000000000000000000000000000000000000 
000000000000000000000000000000000000 






















































































ChinaepubcoM | 359 
EN — — —— - — — 

























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(jump optimization) 
3) 
2 x3 X*Xx*x| 
(reduction in strength) 
( 2*2*x 5*x +x —— ) 
2-3 5 ( (constant folding)) 
( (constant propagation)) 
( 
(procedure in lining) C++ 
(tail recursion) 

























































































































































































int gcd( int u, int v) 
{ 1Ё (v==0) return u; 


else return gcd(v,u % v); ) 






























































int fact( int n ) 
( if (п==0) return 1; 


else return n * fact(n-1); ) 





















































































































































































































































































































































аса 
int аса( int u, int v) 
{ begin: 
if (v==0) return u; 
else 
1 int tl = v, t2 = usv; 


u = tl; v = t2; 
goto begin; 



































































































































( ) (tail recursion removal) 





































































































































































































































































































































































































































































































































































































































































































© Sun SparcStation) П ПП000000000000000000000000000 8.620 000 
































360 Chinaspub.com 
_ о Ж 































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(VAX ) 
(instruction selection) (use of machine idioms) 
4) 
( ) 
(profiling compiler) ( ) 
8.9.2 | 
( 
( 
(peephole optimization)) 
( (source-level optimization)) 
( (target-level optimization)) 
(pseudoregister) ( ) 
(phase problem) 
x = 1; 
y = 0 ғ. 


АЛТЕТ ДАУ 

















































































































































































































8 361 














































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































if (х) у = 1; 
1[] if ПП 
х = 1; 
y = 0; 
if (x) y = 1; 
2 (local) (global) 
(interprocedural) (straight-line segment of 
code) © 
(basic block) 
( “ ” ) 
2 000000 
ПППП| 0000000 
[ xD DU 00 
000 0000 
(data flow analysis) 
e ЦПППППППППППППП ППП ПИ  П ПП ППППГППГГГ 
ПППППППППППППППППППП Г 





























362 Chinaspub.com 
—. a= 




































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































( 
(induction variable)) 
( 
(code motion)) 
goto 
(loop discovery) (0 FORTRAN) 
8.9.3 
і 
ВІ 
if false t1 
goto L1 
fact - 1 
(flow graph) 
( ) 
8-4 
8-2 ( if false t4 
) goto L2 
1111 
2) В5 
3) 
0 8-4 ППППЗОППППППП 
( “ ” ) 
(reaching definition) 
© 



































































































































































































































e О00000000000000000000000000000000000000000000010 
П0000000000000000000000 
e ППППСППП ПППППППГ 
























































China=pubscom 




















































































































363 













































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































8 
8-4 fact B2(fact=1) B3(fact=t2) 3 
а d2 
(reach) 8-4 fact BI[] B2[] а] 42 ВЗ 
а2 ВА] BS | — 
( ) 
DAG (DAG of a basic block)(DAG = directed acyclic graph ) DAG 
) 
DAG 
(416 je 
8-4 B3 8-5 DAGU П ( | 
DAG[] ) DAG 
fact-t2|| x-t3 ын 
t2[] t3 
Е — а 
x 
DAG fact x 1 0 
рАС 0 8-5 0 8-180000 830 DAG 
С 
x = (х+1) * (x+1) 
tl =x +1 
t2 = x 41 
t3 = tl * t2 
x = t3 
8-6 DAG | х+1 x,t3 
DAG 1 
DAG ( ) 2 
DAG t2,t1 
DAG 8-6 Ы 4 
+ х[] 1 t1( 0 8-6 ПСППх- (x+1)* (х+1) 
tl=x+1 ) 2 (+П xl] 1 0000000000 pac 
t2=x+1 t2 
e ППФБАОПППППППППППППППППППППППППП БАОППППППРОПППППП 





























000 
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( “ : ) 
DAG 
(DAG ) 
DAG 
8-5[] 3 
t3 = x - 1 
t2 = fact * x 
x = t3 
+4 = x == 0 
fact = t2 
fact = fact * x 
x = x - 1 
t4 = x == 0 
8-6 DAG 
tl = x + 1 
x = tl * tl 
DAG DAG 
( ) ( ) 
( 
) 
(register descriptor) (address descriptor) 
( ) 
( 
) ( ) 
( ) 
8-5 DAG 3 001] 2 
TM 4 inRey (reg-no)|] isGlobal(global-offset) 
isTemp (temp-offset)[| isConst (value) ( ™ TINY 
) x 00 fact 1 gp 
mp 
ПП/ПП 00000 
fact isGlobal (1) 
x isGlobal (0) 
t2 - 
t3 - 
t4 - 
1 isConst (1) 
0 isConst (0) 
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365 









































































































































































































































8 
ШИГ | 
| 
LD O,1(gp) load fact into reg 0 
LD 1,0(gp) load x into reg 1 
MUL 0,0,1 
ПОС 00000 
fact inReg(0) 
x isGlobal(0),inReg(1) 
t2 intReg (0) 
t3 - 
t4 - 
isConst (1) 
isConst (0) 
000 00000 
fact, t2 
x 
Hd Hd 
LDC 2,1(0) load constant 1 into reg 2 
ADD 1,1,2 
00/00 00000 
fact inReg(0) 
х inReg(1) 
t2 inReg(0) 
t3 inReg(1) 
t4 - 
isConst(1),intReg(2) 
isConst (0) 
000 00/00 
0 fact, t2 
x, t3 
1 
DAG 
































































































































































































































Ul 





UU ПП 






































366 


















































8.40 ТМУОПООООООООО 


Chinaspubecom 





8.8 
















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































TINY 8-14[] 42 
8-13[] 9 
1) TINY TM ( 20 30 4) 
2) TINY 011 1 if 
while 
TINY 
8.10.1 
TINY 
tmpOffset (mp) 
tmpOffset ( B 
2033 20271) tmpOffset 
(U ре gpl] mp) tmpOffsef[] 0-4 0-4 
-5 ( 5) 
( saveTmp[| LoadTmp) 
0 
TINY 8-15 TM ( 8- 
1400) 20% ( тр) 2[] 3 
4 3 
0000 8-15 ПППППППППППППП TINYOOO TMD D 
0: LD 6,0(0) 17: ST 0,1(5) 
1: ST 0,0(0) 18: 10 0,0(5) 
2: IN 0,0,0 19: LDC 1,1(0) 
3: sT 0,0(5) 20: SUB 0,0,1 
4: LDC  0,0(0) 21: ST 0,0(5) 
5: LD 1,0(5) 22: LD 0,0(5) 
6: SUB 0,0,1 23: LDC  1,0(0) 
7: JLT 0,2(7) 24: SUB 0,0,1 
8: LDC 0,0(0) 25: ТЕО 0,2(7) 
9: LDA  7,1(7) 26: LDC 0,0(0) 
10: LDC 0,1(0) 27: LDA 7,1(7) 
11: JEQ 0,21(7) 28: LDC 0,1(0) 
12: LDC 0,1(0) 29: JEQ 0,-16(7) 
13: 5Т 0,1(5) 30: LD 0,1(5) 
14: LD 0,1(5) 31: our 0,0,0 
15: LD 1,0(5) 32: LDA  7,0(7) 
16: MUL 0,0,1 33: HALT  0,0,0 














Chihaspub«toM 








































































































367 





























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































8 
8.10.2 
тм 
“ ” ( ) 
( ) 
10 
100 
inReg[| inMem 1 
2 ( 
) 
x 4 fact ( 
) 2 8- 
2 8-16 
0000 8-16 00000000000000000 TINYOOO ТМО О 
0: LD 6,0(0) 13: LDC 0,1(0) 
1: вт 0,0(0) 14: SUB 0,3,0 
2: IN 3,0,0 15: LDA  3,0(0) 
3: LDC 0,0(0) 16: LDC  0,0(0) 
4: SUB 0,0,3 17: SUB  0,3,0 
5: JLT  0,2(7) 18: “ЕО 0,2(7) 
6: LDC 0,0(0) 19: LDC  0,0(0) 
7: LDA 7,1(7) 20: LDA  7,1(7) 
8: LDC 0,1(0) 21: LDC 0,1(0) 
9: JEQ 0,15(7) 22: JEQ 0,-12(7. 
10: LDC 4,1(0) 23: OUT 4,0,0 
11: MUL 0,4,3 24: LDA  7,0(7) 
12: LDA 4,0(0) 25: HALT 0,0,0 
8.10.3 
1 while 
001 TINY 
001 genStmt 
genExp 
oL i while 
8-16[] TINY 
if 0<х then. 
TM 















































о 0 м с л ы 


















































368 China=pubseom 
ШШ 


SUB 0,0,3 
JLT 0,2(7) 
LDC 0,0(0) 
LDA 7,1(7) 
LDC 0,1(0) 
JEQ 0,15(7) 























TM 






































SUB 0,0,3 
JGE 0,10(7) 





























JGE <П) 










































































































































































8-17 ( | 

































































ТІМҮ else 1 genStmt 




































































































































































































































































































































































0000 817 ППППППППППППППППППППППП TINYO 0 0 TMO О 





о м aur ш N F. © 
o. өф o so а8 эе эз өз өө 


LD 6,0(0) 9: LDC 0,1(0) 

ST 0,0(0) 10: SUB 0,3,0 

IN 3,0,0 11: LDA 3,0(0) 
LDC 0,0(0) 12: LDC 0,0(0) 
SUB 0,0,3 13: SUB 0,3,0 
JGE 0,10(7) 14: JNE  0,-8(7) 
LDC 4,1(0) 15: OUT 4,0,0 
MUL 0,4,3 16: HALT 0,0,0 


LDA  4,0(0) 





8.4 001 































































































































































































































































































































































































8.1 Lex C ( 2.2.3 ) 
а. 2+3+4+5 
b. 2+ (3+ (4*5)) 
с. a*bta*b*c 

8.2 Р- 

8.3 С | Р- 




























































































а. (х = у = 2) %(х-4) 
b. a (а) i=b (i=n) 
C. p-»next-»next-p-»next 


( ) 










































































































































































8.5 TINY (a) | (b)P-| 






































{ Gcd program in TINY language ) 


read u; 












































China=pUbecom 369 
EN — ——— - — — 


read v; { input two integer |) 


if v = 0 then v := 0 ( do nothing } 
else 
repeat 
temp : = v; 
v := u - u/v*v; { computes ч mod v } 
u := temp 
until v = 0 
end; 


write u ( output gcd of original v & v } 












































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































8.6 8-4 8-5 C 
8.7 8-1P- (8.2.1]] ] a 8.3.2 b8.4.4 
8.8 8-2 
8.9 6.5.2 ? 
8.10 [] &[] * ЧС ) 000 

а. 8.2.1 

Ь. 8.2.2 
8.11 а. П] 8.4.4 repeat-until([] do-while ) 8-2 

b. (8.4.4[] ) a 
8.12 a. for while ? 

b. case[] switch 1 ? 
8.13 a. 8-2П Borland 80x 86 C 

b. 8-2[] 8.6.2 Sun SparcStatin C 

c. 3 x ” ) a[] b 

8-2 ? 

8.14 case[] switch сазе] ППП (jump table) 

case 

a. case 

? 
b. 10[] case C 
switch 
8.15 a. 8.3.2 
С а 
int a[12][100][5] 
a a 
а1511421121 

8.16 8.5.2 / 























































































































fn f (х) =х+1 


8.17 


8.18 


8.19 
8.20 


8.21 


8.22 


8.23 
8.24 


8.25 
8.26 
8.27 
8.28 


8.29 
8.30 


















































а £(x(3),4*5) 


























(Муагрихсом 



















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































а. genCode P- 
b. 
arg 
arg ( 8.5.1[] ) 
a. P- 
b. 
8.51| TINY gcd TM 
a. TM 
b. TM 
TM 
( C) 
TINY TINY TM 
a. 24234445 
b. 2+ (3* (4+5) ) 
с.х:- x+(y+2*z)| x, yl] z dMem 00 1[] 2 
d.v := u - u/v*v; 
( 8.5 TINY оса TINY 
8.5.2 TM 
Borland 3.0 80x 86 x<y 
- 20 - 4 
mov ax,word ptr [bp-2] 
cmp ax,word ptr [bp-4] 
jge short (01086 
mov ах,1 
jmp short (19114 
@1@86: 
хок ах,ах 
0810114: 
ТІМҮ | | І ТМ 
С 8.4 
8.51| TINY gcd 
8.5[] TINY gcd repeat DAG 
8.9.3 8-5] DAG ™ 
™ 
LDC 2,0(0) load constant 0 into reg 2 
SUB 2,1,2 
( 8.9.3[] ) 
C 8.9 
TINY 
1) 0 


2) 





































































































































































































































































































































































































































































































































































































































































































Chiaspub 08 


0000 


8.31 


8.32 


8.40 


















































371 















































TINY 












































































































































8-13 
























































8-7(8.2.2П ) 




















































































































8-1 


























8-7 











































































































8-7( C ) 





























8-9( 


















































8-10( 





























роге 





8-11 С 



































































































































а. 8-9( 












































Ь. 8-10( 












































c. 8-11( 























8-8[] Yacc 



































8-7 





























8-10 













































































8-7 












































TM 




































































TINY 











code.h 










































































8.23 























TM 

















a.[] TINY 

























































































































































































array a[10]; 
i := 1; 
repeat 
read a[i]; 
i := i + 1; 


until 10 < i 





(a) 































































































TM 


















































8.21 




















TM 
































TINY 








































































































° => = 





































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































(Матрикс 

























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































8.47 8.10 TINYŲ 
a. [| 
b. П 
с. | 
8.48 TINY 
8.49 a. 1 
b. 2 
[| D BLEU 
Ц ( JL 
Sethi[] Ullman(1986) Fischer 
LeBlanc(1991)[] case/switch (8.14) (MIPS[] Sparc[] PC) 
Fraser[] Hanson(1995). Slonneger[] Kurtz(1995) 
1 
(Strong(195 Steel(1961) 
| P- 
Nori et al(1981) | P- П | 
Perkins[] Sites(1977) Modula-2 
(Powell(1984). Ada Diana,[] Goos[] Wulf(1981) 
LISP П | RTL 
(Stallman[1994]) Davidson[] Fraser(1984a,b) 
Holub 
Sethi[] Ullman(1986) Fischer 
LeBlanc(1991) | O ACM Programming languages 


Design and Implementation Conferene Procee 









































































































































Programming Languages and Systems 


ACM SEGPLAN Notices 


Principles of Programing Languages Conference Proceedings 














ings ( 



























































Complier Construction Conference) 







































































ACM 





























ACM Transacfions on 






























































Chinaspub oN 
[DD | 














ПОПА 0000000 








































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































0000 
“С “С Tiny Machine 
Ер . СППТМПППП 
“С 
СП Minus ( СП) 
ТІМҮ С 
5 
ВМЕ А.З 
С С Tiny Machine 
C TM 
АЛ ОПППППГП 

1. 

else if int return void while 
2. 

+ — * / < <= > >= == != = ; (31114 ) /* */ 
3. ID|| NUM| 

ID = letter letter* 

NUM - digit digit* 

letter - а|.41:|А|..| 

digit = O| ..|9 
4. П П ID|| МОМ 
5. С /*...*/ 

) 
A.2 СППППППП 

C BNF 


















































І. program  declaration-list 


2. declaration-list > declaration-list declaration | declaration 


3. declaration > var-declaration | fun-declaration 






























































374 China-pubecom 
est 


4. var-declaration > type-specifier ID; | type-specifier ID [ NUM 1; 
5. type-specifier > int | void 
6. fun-declaration — type-specifier ID ( params ) | compound-stmt 
7. params => params-list | void 
8. param-list > param-list , param | param 
9. param  type-specifier ID | type-specifier ID [ ] 
10. compound-stmt > { local-declarations statement-list } 
11. local-declarations > local-declarations var-declaration | empty 
12. statement-list — statement-list statement | empty 
13. statement — expression-stmt | compound-stmt | selection-stmt 
| iteration-stmt | return-stmt 
14. expression-stmt — expression ; |; 
15. selection-stmt —^ if (expression ) statement 
| if (expression ) statement else statement 
16. iteration -stmt => while ( expression ) statement 
17. return -stnt 2 return Я return expression; 
18. expression — var = expression | simple-expression 
19. var > ID | ID | expression 1 
20. simple-expression — additive-expression геїор additive-expression 
| additive -expression 
21. еюр -><-|<|>|>-і|--|!- 
22. additive-expression — additive-expression addop term | term 
23. addop > + | - 
24. term > term mulop factor | factor 
25. mulop = * | / 
26. factor > ( expression ) | var | call | NUM 
27. call > ID (args) 
28. args — arg-list | empty 
29. arg-list > arg-list , expression | expression 
ШППШШПШППШШПШШППШШПШШППШПШ1 


1. program — declaration-list 










































































2. declaration-list > declaration-list declaration | declaration 


3. declaration — var-declaration | fun-declaration 
































































































































































































































00000 00 02000 0 000 0 00 000 000000000 
000000 ПППФШПСШПППППШ)ПППППППШПШПППППППППФ@ПП 
ПП backpatching[] OOU 0 11111111 шал | С 

ПОП ПППППППППФСПП) 





































































































4. var-declaration > type-specifier ID ; | type-specifier ID [ МОМ 1, 
5. type-specifier > int|void 

















0001 IU E I IOLDI 1000 0 















































































































































































































































мом- 1 0000 <0000000000000000000000000000000 














Chihaspup.coM 



























































375 























int[] void| ( ) 

























































































































































































6. fun-declaration — type-specifier ID ( params ) compound-stmt 
7. params — param-list | void 
8. param-list > param-list , param | param 


9. param > type-specifier ID | type-specifier ID | ] 





























































































































































































































































































































































































































































































































































































































































































































| 
void ( 
) void ( ) 
) “ ” 
( ) 
10. compound-stmt — ( local-declarations statement-list ) 

















































































































































































































































































































































































































11. local-declarations > local-declarations var-declaration | empty 


12. statement-list — statement-list statement | empty 















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































| IO (U empty ) 
13. statement — expression-stmt 
| compound-stmt 
| selection-stmt 
| iteration-stmt 
| return-stmt 
14. expression-stmt — expression; |; 
15. selection-stmt > if (expression) statement 
| if (expression) statement else statement 
1 0 
else 
else i (“ ” ) 
16. iteration-stmt while (expression) statement 
while C 
0 
17. return -stmt > return Я return expression; 
void 
void return| ( main ) 

























































































































































































18. expression — var = expression | simple-expression 


19. var > ІР | ID [expression] 





















































































































































































































































var 











































































































376 Chinaspubcom 
_ 




























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































var 
(00) (СІП) 

var С С С (1-уаше) 

C var 
СПП С 
20. simple-expression > additive-expression relop additive-expression 
| additive -expression 
21. relop > <=|<|>|>=|==|!= 
( ) 
ture 

1 false 0 

22. additive-expression — additive-expression addop term | term 

23. addop > + |- 

24. term > term mulop factor | factor 

25. тишор > * | / 

| 
26. factor > (expression) | var | сай | NUM 
NUM 

ID ( ) 

27. call > ID (args) 

28. args > arg-list | empty 

29. arg-list > arg-list , expression | expression 

ID( ) 
C 

C C 

int input(void) (...) 

void output(int х) {...} 

input ( ) output 





































































































































































































































































































































































































АЗ СПППППП 










































































































































































/* A program to perform Euclid's 
Algorithm to compute gcd. */ 


China=pubscom 


int аса (int ч, int v) 


{ if (v == 0) return u 














, 


else return gcd(v,u-u/v*v); 


/* u-u/v*v == u mod v */ 


) 


void main(void) 


{ int x; int y; 


x = input(); y = input(); 


output (gcd(x,y)); 
) 


ППППППП10ППППППППШПППППППППШПППППП 



































ПА 








/* А program to perform selection sort оп а 10 


element array. */ 
int x[10]; 


int minloc ( int a[], 


1 int i; int x; int k; 


к = low; 
х = a[low]; 
i = low + 1; 


while (i < high) 
{ if (a[i] < x) 


{ x = a[i]; 


void sort ( int a[], 


{ int i; int k; 


1 = low; 
while (i < high-1) 
{ int t; 

k = minloc (a,i 
t =a[k]; 
a[k] = a[i]; 
a[i] = t; 
i = i + 1; 


void main (void) 
( int i; 
1 = 0; 
while (i < 10) 
{ х[1] = input; 


i = i + 1; 


int low, int high ) 


int low, int high ) 


; high); 


377 


378 


















































sort (х,0,10), 


1 


= 0; 


while (i < 10) 


( output (x[il); 


і ші + 1; 


АА СПППП Tiny Machine[] [J] D D D] 























С/Мдагрийхс0М 





































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































8.7 Tiny Machine 7 
cU (U TINY ) dMem 
0 С 
(heap)[] П C ) 
Pan ofpFO = 0 
retFO = —1 
initFO --2 
fp (current frame pointer) ofp( 
) 7 (control link) FO( ) 
initFO 
Tiny Machine ІП fp 
C 
int f(int x, int y) 
( int z; 
) 
x|] yU 2 f - 5(x|] УП z 
JO x[] ҮП = - 2l] - 31 -4 
TINY 
5р 
тм 0 gp 0 
0: LD gp, О(ас) * load gp with maxaddress 
1: LDA fp, O(gp) * copy gp to fp 
2: ST ac, 0 (ac) * clear location 0 
pc | 
( ) соае.һ/ 
































































































































































































































China=pubecom | 379 
EE E 7 7 














code .c emitRAbs ( 

































































































































































































































































27 42 


































































































42: LDC pc, 27(*) 














42: LDA pc, -16(pc) 














27- (42 + 1) = - 16 

















1) те РО 










































































































































































































































































































































































































































































































































































LD pc, retFO(fp) 





























pc 

































































































































































fp ofpFO 



































































































































































































































fp fp 





«code to compute first arg» 

ST ас, frameoffset-tinitFO (fp) 

<code to compute second arg» 

ST ac, frameoffset-tinitFO-1 (fp) 

ST fp, frameoffsettofpFO (fp) * store current fp 
LDA fp, frameoffset(fp) * push new frame 

LDA ас,1(рс) * save return in ас 

LDA pc, ...(pc) * relative jump to fuction entry 


LD fp, ofpFO(fp) * pop current frame 

















































































































































































































































































































































































































































































































































































































































































































2) ІПП 
a[i] = а[1+1]; 
а[1] а[1] а[1+1] а 1+1 
cGen isAddress cGen 
gp( 20 Тр 
ас 
LDA ac, offset(fp) ** put address of local var in ас 
| ас 
























































































































































































































































































































































































































































































































































380 Chimashpub com 
rt 


-—— ППАППППП 


ППППАПППППППП 



























































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































р LDA 
AS QO COU TMD D D U D 
TINY ( B[] ) 
C 
C 
(П 1/4 ) 
Sparc[] PC( ) С 
OU 
1 С 
6 
С DFA Lex 2 
C 
4 C ( C ) 
Yacc 41 5 ( 3) 
5 C 
6 С 

































































































































































